如何将sjPlot::tab_model生成的表格列表导出到Word或RMarkdown文件

一、基于表格列表创作RMarkdown报告 #

你只需要做好两处配置即可正常输出所有表格：

• 首先在RMarkdown文档的YAML头中指定你需要的输出格式，示例配置如下：

---
title: "模型结果汇总报告"
output:
  html_document: default # 输出HTML报告
  word_document: default # 可同时配置直接 knit 出Word报告
---

• 在输出表格的代码块中添加results = 'asis'参数，避免原始HTML代码被直接渲染，参考代码：

library(sjPlot)
# 此处替换为你自己生成的tab_model列表，示例生成逻辑供参考：
# mod1 <- lm(Sepal.Length ~ Sepal.Width + Species, data = iris)
# mod2 <- lm(Sepal.Length ~ Sepal.Width * Species, data = iris)
# model_tab_list <- list(tab_model(mod1), tab_model(mod2))

# 循环输出所有表格
for (idx in seq_along(model_tab_list)) {
  # 输出每个表格的标题
  cat(paste0("### 模型", idx, "回归结果"))
  # 输出表格
  print(model_tab_list[[idx]])
  # 添加换行避免不同表格格式粘连
  cat("\n\n")
}

配置完成后直接点击RStudio的knit按钮，即可生成对应格式的报告。

二、直接将表格列表保存为Word文件 #

不需要走RMarkdown knit流程的话，以下两种方法都可以实现直接导出：

方法1：通过flextable+officer导出（格式可调性高） #

这种方法导出的Word表格可自定义字体、边距、颜色等样式，适合需要精细化调整格式的场景：

library(sjPlot)
library(flextable)
library(officer)

# 初始化空白Word文档
word_doc <- read_docx()

# 循环插入所有表格
for (idx in seq_along(model_tab_list)) {
  # 将tab_model转为flextable格式
  ft <- as_flextable(as_gt(model_tab_list[[idx]]))
  # 插入表格标题
  word_doc <- body_add_par(word_doc, paste0("模型", idx, "回归结果"), style = "heading 2")
  # 插入表格
  word_doc <- body_add_flextable(word_doc, ft)
  # 插入空行分隔不同表格
  word_doc <- body_add_par(word_doc, "")
}

# 导出到本地路径
print(word_doc, target = "./模型结果汇总.docx")

方法2：通过临时HTML中转导出（操作更简便） #

不需要额外调整格式的话可以用这个方法，导出的样式和tab_model在网页端展示的样式完全一致：

library(sjPlot)
# 生成临时HTML文件
tmp_html <- tempfile(fileext = ".html")
sink(tmp_html)
cat("<html><body>")
# 写入所有表格内容
for (idx in seq_along(model_tab_list)) {
  cat(paste0("<h2>模型", idx, "回归结果</h2>"))
  print(model_tab_list[[idx]])
}
cat("</body></html>")
sink()

# 调用pandoc将HTML转为Word文件
rmarkdown::pandoc_convert(tmp_html, to = "docx", output = "./模型结果汇总.docx")

内容的提问来源于stack exchange，提问作者12666727b9