如何基于数据框列表循环使用ggplot绘制折线图（不合并数据框）

你可以通过生成图层列表再组合的方式，实现不合并数据框批量绘制折线图，以下是两种可行方案：

方案一：用lapply生成图层列表后组合 #

先遍历数据框列表生成对应的geom_line图层，再将所有图层一次性添加到ggplot基础对象上：

# 生成所有折线图层
line_layers <- lapply(df_all, function(x) {
  geom_line(data = x, aes(x = a1, y = b1), color = "blue", size = 0.05)
})

# 组合图层并绘图
ggplot() + line_layers

如果你的R版本低于4.1.0，不支持直接用+添加图层列表，可以改用do.call实现：

do.call("+", c(ggplot(), line_layers))

方案二：用purrr::reduce逐步叠加图层 #

借助purrr包的reduce函数，逐个将数据框对应的图层叠加到ggplot对象上：

library(purrr)

ggplot() %>%
  reduce(df_all, .f = function(current_plot, df) {
    current_plot + geom_line(data = df, aes(x = a1, y = b1), color = "blue", size = 0.05)
  })

错误原因说明 #

你之前的lapply写法错误在于：将ggplot()放在了遍历函数外部，且geom_line的参数传递有误——应该是每个数据框传入函数后，生成独立的geom_line图层，再将所有图层与基础ggplot对象组合，而非在lapply内部直接操作ggplot对象。

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