R Markdown如何批量为每个姓名生成对应独立Word文档

操作步骤 #

• 改造现有R Markdown为参数化模板
  把原来硬编码写死筛选姓名的文件改成支持外部传参的模板，保存为employee_template.Rmd，完整内容如下，同时修正原代码里列名大小写不匹配的bug（原数据国家列名为大写开头的Country，旧代码写的小写country会运行报错），补全id3字段的输出：

  ---
  output: word_document
  params:
    target_name: ""
  ---
  

  library(dplyr)
  data <- read.csv("data.csv")
  mydata <- data %>% filter(Name == params$target_name)
  

  cat(sprintf("员工%s来自%s，对应id1为%s、id2为%s、id3为%s",
              mydata$Name, mydata$Country, mydata$id1, mydata$id2, mydata$id3))
  

  如果需要保留原来的英文输出文本，把sprintf里的中文替换成对应英文即可，不影响批量逻辑。

• 编写批量渲染执行代码
  新建一个普通R脚本（或直接在R控制台运行以下代码），自动遍历所有姓名批量生成文档，不需要手动修改筛选条件、逐次点击knit：

  library(rmarkdown)
  # 读取全量数据提取所有不重复的人员姓名
  all_emp <- read.csv("data.csv")
  emp_names <- unique(all_emp$Name)
  
  # 循环传参渲染每份独立文档
  for (emp in emp_names) {
    render(
      input = "employee_template.Rmd",
      output_file = paste0(emp, "_信息.docx"),
      params = list(target_name = emp)
    )
  }
  

运行注意：执行代码前请把R工作路径设置为data.csv、模板文件的存放目录，避免文件读取失败。代码跑完后会在工作目录下生成对应4名人员的独立Word文档，文件名以人员姓名区分，不会互相覆盖。

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