R语言for循环存储ggplot图表为何仅保留最后一次迭代结果

这是ggplot2延迟求值（懒求值）机制导致的经典问题：

• aes()内部的映射规则不会在循环运行到对应迭代时立即计算取值，只会保存对索引变量i的环境引用
• 当你后续实际调用、渲染列表里的图表时，for循环已经全部执行完，此时环境中的i固定为最后一次迭代的值5，因此所有图表的y轴数据都会读取G1[[5]]，视觉上就表现为所有列表元素都是最后一张图
• 标题能正常按迭代更新，是因为labs(title = ubi[i,3])的取值在循环迭代当下就完成计算、固化到了对应图表的属性中，没有触发延迟求值。

以下两种方案都可以彻底解决该问题，优先推荐第一种，代码可读性更强、后续维护更方便。

方案1：迭代时提前构造独立数据集 #

不要在aes()内部通过循环索引动态取子集，每次迭代先把当前图表需要的x、y数据组装成独立数据框，数据值会在迭代当下固定，不会被后续循环覆盖：

pl1 <- vector("list",5)
for (i in 1:5) {
  # 提前组装当前绘图用的独立数据框
  current_data <- data.frame(
    x_val = 1:96,
    y_val = G1[[i]]
  )
  pl1[[i]] <- ggplot(current_data, aes(x = x_val, y = y_val)) +
    geom_point(color = "blue") +
    scale_x_continuous(breaks = seq(0, 24, 3), expand = c(0,0)) +
    scale_y_continuous(breaks = seq(1, 8, 0.8)) +
    labs(title = ubi[i,3], x = "Dias(hs)", y = "Pp(mm/hs)") +
    theme_bw() +
    theme(panel.grid = element_line(color = "white"))
}

方案2：用lapply替代for循环 #

lapply每次迭代都会生成独立的函数运行环境，索引值会被封存在对应环境中，不会被后续迭代修改，从机制上规避延迟求值的问题：

pl1 <- lapply(1:5, function(i) {
  ggplot() +
    geom_point(aes(x = 1:96, y = G1[[i]]), color = "blue") +
    scale_x_continuous(breaks = seq(0, 24, 3), expand = c(0,0)) +
    scale_y_continuous(breaks = seq(1, 8, 0.8)) +
    labs(title = ubi[i,3], x = "Dias(hs)", y = "Pp(mm/hs)") +
    theme_bw() +
    theme(panel.grid = element_line(color = "white"))
})

注意：修复完成后可依次调用pl1[[1]]、pl1[[2]]查看图表，确认散点数据和标题一一对应即可。

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