r - 带有 qwraps2 的汇总表 - 如何导出表？

Question

我一定遗漏了一些非常明显的东西......我正在尝试重现 Peter DeWitt 的 qwraps2 教程的结果，在这里我得到了控制台输出，但我不知道如何导出表格以使其看起来像示例。

我希望能够为 Word 中的出版物手稿创建“快速和简单”的可定制汇总表，这看起来完全符合我的需要。

非常感谢您的帮助。

这是我使用的代码：

install.packages("qwraps2")  
set.seed(42)
library(qwraps2)
options(qwraps2_markup = 'markdown')

data(mtcars2)
str(mtcars2)

#building summary table
our_summary1 <-
  list("Miles Per Gallon" =
         list("min"       = ~ min(mpg),
              "max"       = ~ max(mpg),
              "mean (sd)" = ~ qwraps2::mean_sd(mpg)),
       "Displacement" =
         list("min"       = ~ min(disp),
              "median"    = ~ median(disp),
              "max"       = ~ max(disp),
              "mean (sd)" = ~ qwraps2::mean_sd(disp)),
       "Weight (1000 lbs)" =
         list("min"       = ~ min(wt),
              "max"       = ~ max(wt),
              "mean (sd)" = ~ qwraps2::mean_sd(wt)),
       "Forward Gears" =
         list("Three" = ~ qwraps2::n_perc0(gear == 3),
              "Four"  = ~ qwraps2::n_perc0(gear == 4),
              "Five"  = ~ qwraps2::n_perc0(gear == 5))
  )

whole <- summary_table(mtcars2, our_summary1)
whole

Answer 1

您可能需要将代码放在 .Rmd 文件中，并将代码放在 knitr 块中。您可以通过以下方式在 qwraps2 包中查看此类文件的示例：

system.file("doc", "summary-statistics.Rmd", package = "qwraps2")