在R Markdown中对表格进行格式化以导出到MS Word文档

Question

我开始使用R Markdown中的expss生成表格，并借助Knitr进行帮助。我想自动化报告中的表格和分析，以便以Microsoft Word格式准备报告。

在转换为HTML时，表格看起来非常好。但是在Word中显示的表格仅显示为普通文本行，与表格完全不同。expss是否支持将表格导出到Word？是否有相关的操作说明？

使用kable和dplyr生成的表格可以正确地在Word中显示。然而，我无法复制使用expss制作的HTML表格。

library(expss)
data(mtcars)
mtcars = apply_labels(mtcars,
                      mpg = "Miles/(US) gallon",
                      cyl = "Number of cylinders",
                      disp = "Displacement (cu.in.)",
                      hp = "Gross horsepower",
                      drat = "Rear axle ratio",
                      wt = "Weight (1000 lbs)",
                      qsec = "1/4 mile time",
                      vs = "Engine",
                      vs = c("V-engine" = 0,
                             "Straight engine" = 1),
                      am = "Transmission",
                      am = c("Automatic" = 0,
                             "Manual"=1),
                      gear = "Number of forward gears",
                      carb = "Number of carburetors"
)

cro(mtcars$am, mtcars$vs)

我希望我的Word表格能够像在链接中找到的HTML表格示例或HTML表格示例的图像一样。

我希望它们看起来像我在R控制台输出的表格一样。

在Word中，表格输出如下所示：

发动机

V型发动机

直列发动机

变速器

自动

12

7

手册

6

7

#总病例数

18

14

- André van Zyl

Answer 1

expss使用htmlTable包进行表格渲染。不幸的是，htmlTable不支持Word输出。但是，您可以使用split_table_to_df和kable函数。它们可以在Microsoft Word中给您类似表格的输出。请参见以下示例：

library(expss)
library(knitr)
data(mtcars)
mtcars = apply_labels(mtcars,
                      mpg = "Miles/(US) gallon",
                      cyl = "Number of cylinders",
                      disp = "Displacement (cu.in.)",
                      hp = "Gross horsepower",
                      drat = "Rear axle ratio",
                      wt = "Weight (1000 lbs)",
                      qsec = "1/4 mile time",
                      vs = "Engine",
                      vs = c("V-engine" = 0,
                             "Straight engine" = 1),
                      am = "Transmission",
                      am = c("Automatic" = 0,
                             "Manual"=1),
                      gear = "Number of forward gears",
                      carb = "Number of carburetors"
)

cro(mtcars$am, mtcars$vs) %>% 
    split_table_to_df() %>% 
    kable()

- Gregory Demin