使用ggplot循环绘制纵向数据轨迹图异常问题求助

尝试通过for循环使用ggplot可视化纵向数据，代码如下：

for(i in colnames(dat_longC)[c(3,5:10,14,17:19,30:39)]){
print(ggplot(dat_longC, aes(x = exam, y = i, group = zz_nr))+ geom_point()+  
  geom_line() + xlab("Examination") + ylab(i))
}

但执行for循环时仅得到考试时间点之间的连线，单独对单个变量执行相同命令却能生成正常的轨迹图，请问问题出在哪里？

核心问题在于ggplot的延迟求值机制：

• 循环中aes(x = exam, y = i)里的i是字符型变量，但ggplot会将其当作数据框的列名去查找，而非直接引用当前迭代的字符值。当循环结束后ggplot才会真正解析i，此时i已经变成循环的最后一个值，导致所有图要么复用最后一列数据，要么因匹配错误只画出时间点连线。
• 单独运行时直接写具体列名（比如y = 目标列名），ggplot能直接识别对应列的数值，因此可以生成正常轨迹。

有两种常用的修正方式：

方法1：使用.data代词引用字符变量 #

在aes里用.data[[i]]明确指定要引用的列，让ggplot在每次循环迭代时正确获取当前i对应的列数据：

for(i in colnames(dat_longC)[c(3,5:10,14,17:19,30:39)]){
  print(ggplot(dat_longC, aes(x = exam, y = .data[[i]], group = zz_nr)) + 
          geom_point() +  
          geom_line() + 
          xlab("Examination") + 
          ylab(i))
}

方法2：使用aes_string函数（兼容旧版ggplot） #

aes_string支持直接传入字符型变量名，适配循环遍历列名的场景：

for(i in colnames(dat_longC)[c(3,5:10,14,17:19,30:39)]){
  print(ggplot(dat_longC, aes_string(x = "exam", y = i, group = "zz_nr")) + 
          geom_point() +  
          geom_line() + 
          xlab("Examination") + 
          ylab(i))
}

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