如何在R Markdown中基于Word模板批量渲染分组PDF表格文档

整套流程不需要依赖外部付费工具，用常用开源R包即可稳定跑通，最终输出的PDF格式和你提供的Word模板完全一致，具体实现步骤如下：

• 前期准备
  先安装需要的依赖包，执行以下代码安装：
  install.packages(c("officer", "dplyr", "purrr", "rmarkdown"))
  提前检查Word模板：确认所有<< >>包裹的占位符和R中data frame的列名完全匹配，不要出现括号内多空格、大小写不一致、标点错漏的问题，把模板文件存到R工作目录下。

• 核心实现逻辑
  不建议直接在Rmd里硬写表格内容做渲染——这种方式对现有Word模板的格式还原度很差，很容易出现表格错位、字体不统一的问题。更稳定的方案是先读取Word模板做占位符批量替换（支持正文、表格、页眉页脚所有位置的占位符识别），再将填充完成的Word文档批量转PDF，每个分组对应独立文件。

• 可直接运行的示例代码

  library(officer)
  library(dplyr)
  library(purrr)
  library(rmarkdown)
  
  # 替换成你自己的数据读入代码，读csv、读excel都可以
  # my_data <- readxl::read_excel("你的数据源文件.xlsx")
  
  # 按Group Name字段拆分数据，每个分组对应一份独立文档
  grouped_data <- my_data %>%
    group_split(`Group Name`) %>%
    setNames(unique(my_data$`Group Name`))
  
  # 遍历每个分组批量生成文档
  walk2(grouped_data, names(grouped_data), function(current_data, group_id){
    # 读取空白Word模板
    doc <- read_docx("你的Word模板文件名.docx")
  
    # 自动遍历所有字段替换对应占位符
    for(col in names(current_data)){
      match_ph <- paste0("<<", col, ">>")
      fill_val <- as.character(current_data[[col]][1])
      # 替换正文/表格内的占位符
      doc <- body_replace_all_text(
        doc,
        old_value = match_ph,
        new_value = fill_val,
        fixed = TRUE
      )
      # 如果页眉页脚也有占位符，加下面两行代码即可
      doc <- headers_replace_all_text(doc, old_value = match_ph, new_value = fill_val, fixed = TRUE)
      doc <- footers_replace_all_text(doc, old_value = match_ph, new_value = fill_val, fixed = TRUE)
    }
  
    # 临时保存填充好的Word文件
    temp_word <- tempfile(fileext = ".docx")
    print(doc, target = temp_word)
  
    # 转PDF输出，文件名自动用分组名命名，过滤特殊字符避免报错
    output_name <- paste0(gsub('[\\/:*?"<>|]', "_", group_id), "_结果文档.pdf")
    pandoc_convert(
      input = temp_word,
      to = "pdf",
      output = output_name
    )
  })
  

• 常见避坑提示

  • 替换时一定要开fixed = TRUE参数，避免占位符里的特殊字符触发正则匹配规则导致替换失败
  • 不要直接用Rmd生成PDF：填充完成的Word文件转PDF的格式还原度远高于直接从Rmd渲染PDF，不会出现排版错乱
  • 如果一个分组对应多行数据需要填到模板表格里，只需要在替换表格的位置加循环写入行的逻辑即可，不需要改动整体流程

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