使用for循环存储ggplot2对象至列表的异常问题及解决咨询

你的代码里有两个核心问题导致了警告和错误的结果，我来一步步帮你修正：

问题1：列表元素赋值方式错误 #

你用plots[i] = ggplot(...)来给列表赋值，这实际上是把ggplot对象塞进了一个长度为1的子列表里，而不是直接作为列表的单个元素。正确的做法是用双括号plots[[i]]来访问列表的单个元素位置，这样才能正确存储ggplot对象。

问题2：动态列名的映射错误 #

在aes()里直接用DCN_byclass[,(i+3)]会把整个列的数据传递给ggplot，而不是告诉它要映射的列名。ggplot的美学映射需要引用数据框的列名，这里我们可以用tidyverse的.data代词来动态引用列名，让代码更清晰规范。

修正后的完整代码 #

library(tidyverse)

# 你的数据预处理部分保持不变
DCN_byclass = group_by(Data_Cortex_Nuclear, class, Genotype) %>% 
  select(-Behavior, -Treatment, -MouseID) %>% 
  summarise_each(funs(mean(., na.rm = TRUE)))
classes = c('c-CS-s','c-CS-m','c-SC-s','c-SC-m','t-CS-s','t-CS-m','t-SC-s','t-SC-m')
desc = c('control mice, stimulated to learn, injected with saline', 
         'control mice, stimulated to learn, injected with memantine', 
         'control mice, not stimulated to learn, injected with saline', 
         'control mice, not stimulated to learn, injected with memantine', 
         'trisomy mice, stimulated to learn, injected with saline', 
         'trisomy mice, stimulated to learn, injected with memantine', 
         'trisomy mice, not stimulated to learn, injected with saline', 
         'trisomy mice, not stimulated to learn, injected with memantine')
class_desc = tibble(class = classes, description = desc)
DCN_byclass = left_join(DCN_byclass, class_desc, by = 'class')
DCN_byclass = select(DCN_byclass, class, description, Genotype, everything())

# 修正后的循环代码
plots = list()
# 获取需要可视化的列名（从第4列开始，前3列是class、description、Genotype）
plot_cols = colnames(DCN_byclass)[4:ncol(DCN_byclass)]

for (i in seq_along(plot_cols)) {
  current_col = plot_cols[i]
  plots[[i]] = ggplot(DCN_byclass, mapping = aes(Genotype, .data[[current_col]], fill = class)) +
    geom_col(position = 'dodge') +
    labs(y = current_col)  # 给每个图表添加y轴标题，明确展示当前变量
}

更符合tidyverse风格的替代方案（用purrr::map） #

如果你想避免for循环，用tidyverse的purrr包会更简洁优雅，也更贴合tidyverse的编程习惯：

plots = map(plot_cols, function(col) {
  ggplot(DCN_byclass, aes(Genotype, .data[[col]], fill = class)) +
    geom_col(position = 'dodge') +
    labs(y = col)
})

现在你再访问plots[[1]]就能得到正确的ggplot图表对象了，之前的警告也会完全消失。

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