如何在R中提取环境中的绘图列表并使用ggsave保存？

问题场景 #

已通过ggplot创建多个绘图对象（PlotA、PlotB、PlotC），需要提取这些绘图并批量用ggsave()保存，原尝试代码无法正常工作。

创建绘图的代码：

PlotA <- ggplot(mtcars, aes(x=hp, y=mpg, color=cyl, shape=cyl)) +
  geom_point(size=3)

PlotB <- ggplot(mtcars, aes(x=hp, y=mpg, color=cyl, shape=cyl)) +
  geom_point(size=3) +
  geom_smooth(method="lm", aes(fill=cyl)) 

PlotC <- ggplot(mtcars, aes(x=hp, y=mpg)) +
  geom_point(size=3, aes(color=cyl, shape=cyl)) +
  geom_smooth(method="loess", color="black", se=FALSE) +
  geom_smooth(method="lm", aes(color=cyl, fill=cyl)) 

原代码的问题 #

1. ls(pattern = 'Plot')返回的是对象名称的字符串向量，而非实际的ggplot绘图对象，ggsave()需要传入绘图对象而非字符串。
2. 循环中file=paste0("Total", saveplots,".png")使用了整个saveplots向量，会生成包含所有绘图名称的错误文件名，而非对应单个绘图的文件名。

解决方案 #

步骤1：提取环境中的ggplot绘图对象 #

使用mget()将字符串名称转换为实际对象，同时筛选出仅属于ggplot类的对象，避免误提取同名非绘图对象：

# 提取所有以Plot开头的对象
plot_list <- mget(ls(pattern = "^Plot"))
# 筛选出ggplot类型的对象
plot_list <- plot_list[sapply(plot_list, inherits, "ggplot")]

步骤2：批量保存绘图 #

方法1：使用for循环

# 先创建保存目录（不存在则创建）
if (!dir.exists("plots")) dir.create("plots")

# 循环遍历每个绘图对象
for (plot_name in names(plot_list)) {
  ggsave(
    plot = plot_list[[plot_name]],  # 传入实际的绘图对象
    file = paste0("Total_", plot_name, ".png"),  # 生成对应单个绘图的文件名
    width = 22, height = 11.5, units = "cm",
    path = "plots/"
  )
}

方法2：使用purrr包简化代码

如果安装了purrr包，可以用iwalk()同时遍历对象和名称，代码更简洁：

library(purrr)

# 创建保存目录（忽略已存在的警告）
dir.create("plots", showWarnings = FALSE)

# 批量保存
iwalk(plot_list, ~ ggsave(
  plot = .x,  # .x代表当前绘图对象
  file = paste0("Total_", .y, ".png"),  # .y代表当前绘图的名称
  width = 22, height = 11.5, units = "cm",
  path = "plots/"
))

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