使用for循环迭代列生成ggplot箱线图异常：箱线图呈扁平状

你确实错误假设了y = i会在迭代时动态取到当前列名。ggplot的aes()函数采用延迟计算机制——它不会在循环迭代时立刻解析i的当前值，而是等到实际绘图时才去查找i的最终值。当循环结束后，i会停留在最后一个列名（比如Petal.Width），所以所有箱线图的y轴都绑定到了这个最终值，自然只会显示扁平的箱线图。

下面是几种可行的解决办法：

方法1：使用.data代词（推荐） #

这是ggplot官方推荐的动态引用列的方式，通过.data[[i]]可以明确指定要引用当前迭代的列：

library(ggplot2)
library(magrittr)
for(i in colnames(iris[1:4])) {
  print(iris %>% ggplot(aes(x = Species, y = .data[[i]])) + geom_boxplot())
}

方法2：使用aes_string()（旧版兼容方案） #

如果你的ggplot版本较旧，可以用aes_string()直接传入字符串形式的列名：

for(i in colnames(iris[1:4])) {
  print(iris %>% ggplot(aes_string(x = "Species", y = i)) + geom_boxplot())
}

方法3：用local()捕获当前迭代值 #

通过local()创建局部环境，把当前的i值保存下来，避免被循环的最终值覆盖：

for(i in colnames(iris[1:4])) {
  local({
    current_col <- i
    print(iris %>% ggplot(aes(x = Species, y = .data[[current_col]])) + geom_boxplot())
  })
}

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