在R标记中格式化表格以导出到MS Word文档

我已经开始在Knitr的帮助下使用in R Markdown生成表。我想为我需要以Microsoft Word格式准备的报告自动化表格和分析

当编织到HTML时，表格看起来很棒。Word中的表格显示为纯文本行，与表格不相似。EXPS是否支持将表导出到Word？有关于如何做的说明吗

使用kable和dplyr生成的表格在Word中正确显示。然而，我正在努力复制用EXPS生成的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型发动机

直线发动机

传输

自动的

十二,

七,

手册

六,

七,

#个案总数

十八

---

14

expss

使用

htmlTable

包进行表格呈现。不幸的是，

htmlTable

不支持字输出。 但是，您可以使用

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()