R语言如何批量生成列表中每个data frame的ggplot图并保存

算力阿峰

2026-9-26

R语言批量生成折线图并保存的实现方案

假设你存储所有同结构data frame的列表名为`df_list`，可按照以下两种常用方案实现需求：

方案1：使用lapply批量处理（推荐）

首先建议先给列表元素命名，方便生成的文件名对应不同变量，后续查找更清晰：

# 自定义列表元素的名称，长度需和列表元素个数保持一致，可替换为你实际的变量名
names(df_list) <- c("营收", "利润", "用户量")

之后执行批量绘图和保存逻辑：

# 加载ggplot2包
library(ggplot2)

lapply(names(df_list), function(var_name){
  # 取出当前遍历的data frame
  current_df <- df_list[[var_name]]
  # 生成折线图，可自行添加坐标轴标签、主题等图层
  plot_obj <- ggplot(data = current_df, aes(x = Quarter, y = Value)) +
    geom_line() +
    ggtitle(paste0(var_name, "季度变化趋势"))
  # 保存图片到本地，默认存储在当前工作目录，可自行修改路径
  ggsave(
    filename = paste0(var_name, "_季度趋势折线图.png"),
    plot = plot_obj,
    width = 8,
    height = 6,
    dpi = 300
  )
})

方案2：使用for循环实现

如果你更熟悉for循环的写法，可使用以下代码：

library(ggplot2)

# 遍历列表所有元素
for (i in seq_along(df_list)) {
  current_df <- df_list[[i]]
  # 生成文件名，没给列表命名时默认用序号标识
  if (!is.null(names(df_list))) {
    file_name <- paste0(names(df_list)[i], "_折线图.png")
  } else {
    file_name <- paste0("变量", i, "_折线图.png")
  }
  # 绘图
  p <- ggplot(current_df, aes(x = Quarter, y = Value)) + geom_line()
  # 保存
  ggsave(file_name, plot = p, width = 7, height = 5, dpi = 300)
}

注意事项：