循环生成并按序存储ggplot对象时出现重复问题的技术问询

问题根源 #

你的代码里，ggplot采用延迟求值机制——它不会在循环过程中立即计算y[,i]对应的列，而是等到你调用图表对象时才去读取i的值。循环结束后i会停在最后一列的索引，所以所有生成的ggplot对象都会指向最后一列的数据，导致图表完全相同。

解决方案 #

方法1：用lapply批量生成图表列表（推荐） #

直接用lapply遍历需要绘图的列，每一次迭代都会创建独立的环境，避免延迟求值的问题，同时自动将ggplot对象存入列表，方便后续排列网格。

# 加载所需包
library(ggplot2)

# 示例数据集
df <- data.frame(
  x = 1:10,
  a = c(2,4,6,8,10,12,14,16,18,20),
  b = c(3,6,8,3,3,1,5,7,8,3),
  c = c(8,7,6,5,4,4,3,1,3,2),
  d = c(10,14,24,34,43,32,43,64,75,23)
)

# 获取需要绘图的列名（除了第一列x）
plot_cols <- colnames(df)[-1]

# 用lapply生成图表列表
plot_list <- lapply(plot_cols, function(col) {
  ggplot(df, aes(x = x, y = .data[[col]])) +
    geom_point() +
    geom_smooth(method = 'lm', formula = y~poly(x,3)) +
    labs(y = col)  # 设置y轴标签为列名，更清晰
})

# 查看其中一个图表
plot_list[[1]]

方法2：修改for循环，使用局部环境固定变量 #

如果坚持用for循环，需要在每次迭代中创建局部变量，把当前列的数据固定下来，避免ggplot引用全局的i：

plot_list <- list()
for (i in 2:ncol(df)) {
  current_col <- colnames(df)[i]
  # 用局部变量存储当前列的数据和列名
  p <- ggplot(df, aes(x = x, y = .data[[current_col]])) +
    geom_point() +
    geom_smooth(method = 'lm', formula = y~poly(x,3)) +
    labs(y = current_col)
  plot_list[[i-1]] <- p  # 存入列表，索引从1开始
}

方法3：转长格式后用分面一次性生成网格（更高效） #

如果最终目的是排列成网格，推荐先把数据转成长格式，用facet_wrap或facet_grid直接生成网格图，无需手动循环：

library(tidyr)

# 转长格式
df_long <- pivot_longer(df, cols = -x, names_to = "variable", values_to = "value")

# 生成分面网格图
ggplot(df_long, aes(x = x, y = value)) +
  geom_point() +
  geom_smooth(method = 'lm', formula = y~poly(x,3)) +
  facet_wrap(~variable, scales = "free_y")  # 每个子图y轴自由缩放

后续排列网格 #

如果用方法1或2生成了plot_list，可以用patchwork包来排列网格：

library(patchwork)
# 排列成2行2列的网格
wrap_plots(plot_list, ncol = 2)

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