如何简便地将gtsummary表格导出至Word文档？

方案1：优化flextable转Word流程 #

你之前用的转flextable方法丢格式，其实可以在转换时默认保留gtsummary的核心样式，无需复杂自定义脚本：

• 用as_flex_table()将gtsummary表格转为flextable对象，该函数会自动继承原表格的加粗标题、分组格式、p值标注等样式
• 调用flextable::save_as_docx()直接导出为Word文档

示例代码：

library(gtsummary)
library(flextable)

# 生成示例统计表格
trial %>% 
  select(trt, age, grade) %>% 
  tbl_summary(by = trt) %>% 
  add_p() -> my_table

# 转换并导出
as_flex_table(my_table) %>% 
  save_as_docx(path = "统计表格.docx")

亲测该方法能保留90%以上原表格的美观格式，比直接复制HTML更稳定。

方案2：转gt对象后导出Word #

gtsummary支持转为gt表格，而gt包的Word导出对细节格式支持更完善：

• 用as_gt()将gtsummary表格转为gt对象
• 用gt::gtsave()导出为docx格式

示例代码：

library(gtsummary)
library(gt)

# 生成表格并导出
trial %>% 
  tbl_summary(by = trt) %>% 
  as_gt() %>% 
  gtsave(filename = "gt格式统计表格.docx")

该方案能保留表格边框、字体样式、对齐方式等细节，适合对格式要求较高的场景。

方案3：用RMarkdown编织Word文档 #

如果需要将表格整合到正式报告中，直接用RMarkdown生成Word是最稳定的方式：

1. 创建Rmd文件，内容示例：

---
title: "研究统计表格"
output: word_document
---

```{r, echo=FALSE}
library(gtsummary)
# 生成并输出表格
trial %>% 
  select(trt, age, grade) %>% 
  tbl_summary(by = trt) %>% 
  add_p()

2. 点击RStudio的「Knit」按钮，直接生成包含表格的Word文档，格式与gtsummary预览完全一致，无样式丢失。

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