R语言如何使用列表内的ggplot图表ID为批量导出的PDF命名

之前的代码无法生成带ID的文件名，核心是两个逻辑错误：

• 直接在pdf()设备后输出整个图列表时，文件名里的%03d是R内置的顺序数字占位符，只会按导出顺序生成数字编号，不会自动读取dlply返回列表的名称（也就是分组ID）
• pdf()函数的file参数仅接收单个字符串值作为文件名模板，直接传入Data$ID拼接的向量时，只会取向量第一个元素生效，不会循环匹配每个图表对应的ID。

你用dlply按ID分组生成的All_Plots列表，本身的names属性就存储了每个图对应的ID值，只要循环遍历列表逐个导出即可，两种常用写法：

基础R循环（无额外依赖，兼容性最好） #

for (idx in seq_along(All_Plots)) {
  # 取出当前图对应的ID
  plot_id <- names(All_Plots)[idx]
  # 自定义文件名，格式可按需调整
  out_file <- paste0(plot_id, "_Plot.pdf")
  # 打开PDF绘图设备
  pdf(file = out_file, onefile = FALSE, paper = "a4r", width = 14)
  # 必须显式print ggplot对象，循环里不会自动打印
  print(All_Plots[[idx]])
  # 关闭设备完成文件写入，这步不能漏
  dev.off()
}

ggsave简化写法（推荐） #

ggplot2自带的ggsave不需要手动控制绘图设备，出错概率更低，配合遍历函数即可快速实现：

library(purrr)
library(ggplot2)
# iwalk会自动把列表元素作为第一个参数，列表名作为第二个参数传入函数
iwalk(All_Plots, ~ggsave(
  filename = paste0(.y, "_Plot.pdf"),
  plot = .x,
  paper = "a4r",
  width = 14
))

提示：如果你的ID里有/、:这类系统文件名不允许的特殊字符，要先做一次替换，避免导出报错。

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