Meta分析循环结果导出Word仅显示标题，求技术解决方案

问题原因 #

你编写的officer代码仅完成了添加结局标题的操作，虽然用capture.output(print(summary))捕获了Meta分析的结果文本，但没有将这些文本内容添加到Word文档中，因此最终仅显示标题，看不到具体分析结果。

基础修复：输出纯文本结果 #

修改代码，在捕获结果文本后，逐行将内容添加到文档中：

library(officer)
doc <- read_docx()
for (outcom in names(meta_results)) {
  summary <- meta_results[[outcom]]
  # 添加结局标题（一级标题样式）
  doc <- body_add_par(doc, paste0("Outcome: ", outcom), style = "heading 1")
  # 捕获Meta分析的完整输出文本
  summary_text <- capture.output(print(summary))
  # 逐行将文本添加到文档
  for (line in summary_text) {
    doc <- body_add_par(doc, line, style = "Normal")
  }
  # 添加空行分隔不同结局的结果
  doc <- body_add_par(doc, "", style = "Normal")
}
# 导出Word文档
print(doc, target = "meta_results.docx")

进阶优化：输出结构化表格+森林图 #

纯文本输出排版较杂乱，建议提取关键统计量做成表格，并插入森林图，让结果更直观专业：

library(officer)
library(flextable) # 用于生成美观表格，需先安装：install.packages("flextable")
doc <- read_docx()

for (outcom in names(meta_results)) {
  summary <- meta_results[[outcom]]
  # 添加结局标题
  doc <- body_add_par(doc, paste0("Outcome: ", outcom), style = "heading 1")
  
  # 1. 提取关键统计量生成表格
  key_stats <- data.frame(
    统计指标 = c("合并标准化均数差(SMD)", "95%置信区间", "异质性I²(%)", "合并效应p值"),
    结果 = c(
      round(summary$TE.random, 3),
      paste0("[", round(summary$lower.random, 3), ", ", round(summary$upper.random, 3), "]"),
      round(summary$I2, 1),
      ifelse(summary$pval.random < 0.001, "<0.001", round(summary$pval.random, 4))
    )
  )
  # 转换为美观表格并添加到文档
  result_table <- flextable(key_stats) %>% 
    set_table_properties(width = 1, layout = "autofit") %>% 
    theme_booktabs() %>% 
    align(align = "center", part = "all")
  doc <- body_add_flextable(doc, result_table)
  
  # 2. 生成并插入森林图
  # 临时保存森林图为PNG
  temp_plot <- paste0(tempfile(), "_forest.png")
  png(temp_plot, width = 800, height = 600, res = 100)
  forest(summary, main = paste("Forest Plot:", outcom), xlab = "SMD")
  dev.off()
  # 插入图片到文档
  doc <- body_add_img(doc, src = temp_plot, width = 6, height = 4.5, style = "centered")
  # 删除临时图片文件
  file.remove(temp_plot)
  
  # 添加空行分隔
  doc <- body_add_par(doc, "", style = "Normal")
}

# 导出优化后的文档
print(doc, target = "meta_results_optimized.docx")

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