R Markdown自动生成PDF报告：自定义输出文件名避免覆盖

需求说明 #

现有自动生成报告的R Markdown文件，当前输出文件因沿用固定命名，更换客户生成新报告时会覆盖旧文件。需要将输出PDF命名为姓名_姓氏_月份_年份.pdf（若需区分不同变量报告，可追加变量名），其中：

• 姓名、姓氏：YAML头下方代码块中声明的变量
• 月份、年份：YAML头中定义的params参数

修改步骤 #

1. 更新YAML头部，添加参数定义 #

在YAML头中加入params字段，指定月份和年份参数，方便后续调用：

---
output:
  pdf_document: default
params:
  # 可根据实际需求修改默认值，也可在render时动态传入
  month: "10"
  year: "2024"
---

2. 调整R代码，生成自定义文件名 #

在代码块中定义客户姓名变量，结合params参数生成唯一输出文件名，避免覆盖：

# 加载必要包
library(ggplot2)
library(rmarkdown)

# 定义客户信息变量
Name <- "张三"
LastName <- "王五"

# 获取mtcars的变量名
var_list <- names(mtcars)

# 循环生成每个变量的报告
for (i in seq_along(var_list)) {
  current_var <- var_list[i]
  
  # 生成散点图
  plot <- ggplot(mtcars, aes_string(x = "mpg", y = current_var)) +
    geom_point() +
    labs(title = paste("mpg与", current_var, "的散点图"),
         x = "mpg",
         y = current_var)
  print(plot)  # 确保图在报告中显示
  
  # 生成唯一输出文件名：姓名_姓氏_月份_年份_变量名.pdf
  output_filename <- paste0(Name, "_", LastName, "_", params$month, "_", params$year, "_", current_var, ".pdf")
  
  # 渲染报告
  rmarkdown::render(input = "example.Rmd", output_file = output_filename)
}

关键说明 #

• 如果不需要区分变量，可去掉文件名中的current_var部分，即：

  output_filename <- paste0(Name, "_", LastName, "_", params$month, "_", params$year, ".pdf")
  

• 若需动态传入客户信息和时间参数，可在调用render时通过params参数传递，例如：

  rmarkdown::render(input = "example.Rmd", 
                    output_file = paste0("张三_王五_10_2024.pdf"),
                    params = list(month = "10", year = "2024"))
  

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