如何将R中的kableExtra输出输出到Word？

Question

我在R中用包modelsummary创建了我的模型的汇总表，然后用kableExtra包定制了外观。

tab<-modelsummary(welfarestate,stars=c("*"=.1,"**"=.05,"***"=.01),statistic="std.error",title="WVS Welfarestate",output = "kableExtra",notes=list("*p<0.1, **p<0.05, ***p<0.1"),add_rows = rows_welfarestate)

tab%>%kable_styling(c("striped","hover"),font_size = 20)

将R查看器窗口中的输出集成到Word文档而不丢失格式的最佳方法是什么？

我发现，应该可以将kableExtra从R中的查看器生成的html输出直接复制到Word文档中。但是，当我简单地复制和粘贴时，Word文档中不会显示任何内容。而且，在web浏览器中从html输出中进行复制并不会保留表单。仅仅创建一个png就会失去一些质量。

提前谢谢你的帮助。

Answer 1

kableExtra不支持输出到Word文档。正如您所提到的，我们可以使用modelsummary()的output参数或kableExtra的save_kable()函数将表保存到HTML中。然后，您可以在Word中打开文档，但是您几乎肯定会丢失特殊的格式和样式。

在我看来，如果需要Word表，最好的选择是使用flextable输出而不是kableExtra。在modelsummary中，可以通过直接保存到.docx文件来做到这一点：

library(modelsummary)
library(flextable)
mod <- lm(mpg ~ hp, data = mtcars)

modelsummary(mod, output = "table.docx")

或者，您可以使用许多flextable自定义函数之一。例如：

modelsummary(mod, output = "flextable") |>
    theme_zebra() |>
    save_as_docx(path = "table.docx")

注意，flextable是超级灵活的。见他们的文档：https://ardata-fr.github.io/flextable-book/