循环使用ggplot绘制dataframe多图时的正确索引方法

问题原因 #

你的代码中所有图表都显示第四列数据，是因为ggplot的美学映射（aes）采用延迟求值机制：循环结束后变量i的值固定为4，所有图表在实际渲染时都会引用这个最终值，而非循环过程中各次的i值。另外注意，你用cbind创建的data是矩阵，建议转为数据框更适配ggplot。

修正方案 #

1. 先修正数据格式

将矩阵转为数据框：

a <- c(1,2,3,4)
b <- c(5,6,7,8)
c <- c(9,10,11,12)
d <- c(13,14,15,16)
time <- c(1,2,3,4)
data <- data.frame(a,b,c,d,time)  # 转为数据框

2. 改进循环代码（使用局部变量+.data代词）

通过保存当前列名的局部变量，避免延迟求值问题：

library(ggplot2)
library(gridExtra)

plots <- list()
cols <- colnames(data)[1:4]  # 获取前4列的列名

for (i in seq_along(cols)) {
  current_col <- cols[i]
  plots[[i]] <- ggplot(data, aes(x = time, y = .data[[current_col]])) +
    geom_line() +
    labs(y = current_col)  # 给每个图表添加y轴标签，区分不同列
}

grid.arrange(grobs = plots, ncol = 2)  # 按2列排列图表

3. 更简洁的tidyverse风格（用purrr::map）

避免for循环的求值陷阱，用映射函数更直观：

library(purrr)
library(ggplot2)
library(gridExtra)

cols <- colnames(data)[1:4]
plots <- map(cols, function(col) {
  ggplot(data, aes(x = time, y = .data[[col]])) +
    geom_line() +
    labs(y = col)
})

grid.arrange(grobs = plots, ncol = 2)

原理说明 #

.data[[current_col]]是tidyverse推荐的引用列的方式，它会直接提取当前循环中current_col对应的列数据，而非延迟到绘图时再求值。这样每个图表都会绑定到对应列的数据，不会出现全部引用最后一列的问题。

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