循环构建ggplot绘图列表时结果异常，求助原因

问题根源 #

你遇到的问题是ggplot的延迟求值机制导致的：在for循环中，ggplot并不会立刻解析col变量的当前值，而是等到实际渲染绘图时才会读取col的最终值——也就是循环结束后col的最后一个取值（这里是colnames(mtcars)[2]，即cyl），所以所有绘图都使用了最后一列的数据，导致展示结果相似。

修复方案 #

方案1：使用局部变量捕获当前循环值

在循环内部创建一个局部变量保存当前的col值，让ggplot捕获这个局部变量的即时值，避免延迟解析问题：

list7 = NULL
for (col in colnames(mtcars)[1:2]) {
  current_col <- col  # 用局部变量保存当前循环的列名
  list7[[col]] <- 
    ggplot(mtcars, aes(x= mtcars[,current_col])) + 
    geom_histogram(aes(y=..density..), color="darkblue", fill="lightblue")+
    geom_density(alpha=.2, fill="#FF6666") + 
    ggtitle(paste0(current_col, ' score distribution')) + 
    xlab(current_col) +   
    theme_classic()
}

方案2：使用.data代词（推荐，符合tidyverse规范）

ggplot支持.data代词来明确引用数据框中的列，直接指定当前循环的列名，彻底避免延迟求值问题：

list7 = NULL
for (col in colnames(mtcars)[1:2]) {
  list7[[col]] <- 
    ggplot(mtcars, aes(x= .data[[col]])) +  # 用.data[[col]]指定当前列
    geom_histogram(aes(y=..density..), color="darkblue", fill="lightblue")+
    geom_density(alpha=.2, fill="#FF6666") + 
    ggtitle(paste0(col, ' score distribution')) + 
    xlab(col) +   
    theme_classic()
}

方案3：用purrr::map替代for循环

使用tidyverse的purrr包的map函数，天然避免循环中的变量捕获问题，代码更简洁：

library(purrr)
target_cols <- colnames(mtcars)[1:2]
list7 <- map(target_cols, function(col) {
  ggplot(mtcars, aes(x= .data[[col]])) + 
    geom_histogram(aes(y=..density..), color="darkblue", fill="lightblue")+
    geom_density(alpha=.2, fill="#FF6666") + 
    ggtitle(paste0(col, ' score distribution')) + 
    xlab(col) +   
    theme_classic()
})
names(list7) <- target_cols  # 给列表元素命名

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