使用lapply+ggplot2生成分组图后，如何批量导出为PNG文件？

你的代码仅创建了ggplot绘图对象，但未执行保存操作，因此只有绘图窗口能显示图像，不会生成本地文件。以下是两种可行的修改方案：

方案一：生成图时直接保存 #

在lapply的自定义函数中，生成绘图对象后立即调用ggsave()完成保存：

# 按Location拆分数据
OTA_working_byloc <- split(OTA_working, OTA_working$Location)

# 创建绘图标签
OTA_plottitle <- "Some Title Text"
OTA_plotsubtitle <- "Some Subtitle Text"
OTA_plotcaption <- "Some Caption Text"

# 批量生成并保存箱线图
lapply(names(OTA_working_byloc), function(i) {
  # 生成绘图对象
  p <- ggplot(OTA_working_byloc[[i]], aes(Date, Deviation)) + 
    geom_boxplot(aes(group = Date), outlier.color = "red", outlier.alpha = 0.2) +
    geom_hline(yintercept = 0, color = "deepskyblue2") +
    geom_hline(yintercept = -15, color = "darkgoldenrod") +
    labs(title = paste(i, OTA_plottitle), subtitle = OTA_plotsubtitle, caption = OTA_plotcaption)
  
  # 保存图片：文件名包含Location，避免重名
  ggsave(
    filename = paste0("箱线图_", i, ".png"),
    plot = p,
    width = 10,  # 可自定义宽度，单位默认英寸
    height = 6,  # 可自定义高度
    dpi = 300    # 分辨率，按需调整
  )
})

方案二：先存绘图列表再批量保存 #

先将所有绘图对象存入列表，后续再统一保存，方便后续对图像进行批量修改：

# 按Location拆分数据
OTA_working_byloc <- split(OTA_working, OTA_working$Location)

# 创建绘图标签
OTA_plottitle <- "Some Title Text"
OTA_plotsubtitle <- "Some Subtitle Text"
OTA_plotcaption <- "Some Caption Text"

# 生成所有绘图对象并存入列表
plot_list <- lapply(names(OTA_working_byloc), function(i) {
  ggplot(OTA_working_byloc[[i]], aes(Date, Deviation)) + 
    geom_boxplot(aes(group = Date), outlier.color = "red", outlier.alpha = 0.2) +
    geom_hline(yintercept = 0, color = "deepskyblue2") +
    geom_hline(yintercept = -15, color = "darkgoldenrod") +
    labs(title = paste(i, OTA_plottitle), subtitle = OTA_plotsubtitle, caption = OTA_plotcaption)
})

# 给列表命名，对应每个Location
names(plot_list) <- names(OTA_working_byloc)

# 批量保存
lapply(names(plot_list), function(i) {
  ggsave(
    filename = paste0("箱线图_", i, ".png"),
    plot = plot_list[[i]],
    width = 10,
    height = 6,
    dpi = 300
  )
})

注意事项 #

• 用getwd()查看当前工作目录，确保文件会保存到你期望的路径；若需切换目录，使用setwd("目标路径")
• 若Location名称包含特殊字符/空格，建议用gsub()处理（比如gsub(" ", "_", i)替换空格为下划线），避免文件名报错
• 检查当前R进程是否有目标目录的写入权限，权限不足会导致无文件输出

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