如何用R与Rmarkdown基于Excel批量生成参数化Word文档

步骤1：创建Rmarkdown模板文件 #

新建一个名为country_template.Rmd的文件，内容如下：

---
title: "`r params$country`"
output: word_document
params:
  country: ""
  data: NULL
---

```{r echo=FALSE}
# 筛选当前国家的数据
country_data <- params$data[params$data$Country == params$country, c("X", "Y")]
# 生成格式规整的表格
knitr::kable(country_data, col.names = c("X", "Y"), align = "c")

### 步骤2：编写R主脚本处理数据并生成文档
在你的R工作环境中运行以下代码（假设你已用`readxl`导入数据，数据框名为`df`）：
```r
library(readxl)
library(rmarkdown)

# 若未导入数据，取消下方注释并替换为你的文件路径
# df <- read_excel("你的Excel文件路径.xlsx")

# 获取所有不重复的国家名称
countries <- unique(df$Country)

# 循环遍历每个国家，生成独立Word文档
for (cntry in countries) {
  render(
    input = "country_template.Rmd",
    output_file = paste0(cntry, ".docx"),
    params = list(
      country = cntry,
      data = df
    )
  )
}

关键说明 #

• 模板文件通过params参数接收国家名称和完整数据集，在代码块中自动筛选对应国家的X、Y列并生成表格。
• 主脚本通过循环遍历每个国家，调用render()函数生成以国家名称命名的Word文档，每个文档仅包含对应国家的目标数据。

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