如何批量保存多个ggplot图形？按图形标题命名文件

我用split函数结合lapply函数，基于不同的数据子集绘制大量图形。想知道怎么便捷地保存所有图形，理想状态是按图形标题（对应数据子集的标识）为每个文件命名。

当前代码示例：

data("mtcars")

# 注：变量名避免和split函数重名，这里改为mtcars_split
mtcars_split <- split(mtcars, list(mtcars$gear, mtcars$am))

my_plot <- function(data) {
  ggplot(data, aes(x=mpg, y=cyl)) + 
    geom_point() +
    labs(title = paste(unique(data$gear), "-", unique(data$am)))
}

lapply(mtcars_split, my_plot)

目前我通过临时目录保存图形，操作繁琐，需要大量人工干预：

plots.dir.path <- list.files(tempdir(), pattern="rs-graphics", full.names = TRUE); 
plots.png.paths <- list.files(plots.dir.path, pattern=".png", full.names = TRUE)
file.copy(from=plots.png.paths, to="你的目标路径")

解决方案 #

方法1：修改绘图函数，直接在函数内保存图形 #

把保存逻辑整合到绘图函数里，lapply遍历子集时会自动生成并保存图形，文件名用gear和am的组合命名，和图形标题完全对应：

library(ggplot2)

data("mtcars")
mtcars_split <- split(mtcars, list(mtcars$gear, mtcars$am))

my_plot_save <- function(data) {
  # 生成与标题匹配的文件名
  file_name <- paste0(unique(data$gear), "-", unique(data$am), ".png")
  # 绘制图形
  p <- ggplot(data, aes(x=mpg, y=cyl)) + 
    geom_point() +
    labs(title = paste(unique(data$gear), "-", unique(data$am)))
  # 保存图形（可通过path参数指定自定义保存路径）
  ggsave(filename = file_name, plot = p, width = 6, height = 4)
}

# 执行批量绘图+保存
lapply(mtcars_split, my_plot_save)

方法2：先生成图形列表，再批量保存 #

如果想把绘图和保存逻辑分开，可先生成所有图形的列表，再结合子集名称批量保存：

library(ggplot2)

data("mtcars")
mtcars_split <- split(mtcars, list(mtcars$gear, mtcars$am))

# 生成所有图形的列表
plot_list <- lapply(mtcars_split, my_plot)

# 获取每个子集的名称（即split生成列表的元素名）
subset_names <- names(mtcars_split)

# 批量保存图形
mapply(function(plot, name) {
  ggsave(filename = paste0(name, ".png"), plot = plot, width = 6, height = 4)
}, plot_list, subset_names)

两种方法都能自动生成与数据子集对应的命名文件，完全无需手动操作临时目录。

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