ggplot2循环绘图问题：点无着色且无法生成多图网格

问题1：散点未按预期着色 #

你在aes(colour = x)里直接用了字符串变量x，ggplot会把它当作单一常量值，不会关联到数据框中对应的列。要引用动态列名，需要用.data[[x]]来明确告诉ggplot从数据框中提取对应列的数据。

问题2：无法生成包含所有绘图的网格布局 #

• 循环里调用grid.arrange(y)时存在拼写错误，你定义的图变量是大写Y，这里写成了小写y；
• 更关键的是，循环中每次单独排列单张图，不会累积所有绘图。正确做法是先把所有绘制好的图存入一个列表，最后一次性用grid.arrange排列所有图。

修正后的完整代码 #

variables <- colnames(df)[4:35]
plot_list <- list()  # 创建空列表存储所有绘图

for(i in seq_along(variables)){
  x <- variables[i]
  p <- df %>% 
    ggplot(aes(x = PC1, y = PC2, 
               colour = .data[[x]])) +  # 使用.data[[x]]引用动态列
    geom_point() + 
    theme_bw(base_size=16) +
    labs(x=paste0("PC1: ",round(var_explained[1]*100,1),"%"),
         y=paste0("PC2: ",round(var_explained[2]*100,1),"%"),
         colour = x)  # 手动设置图例标题为当前变量名
  
  plot_list[[i]] <- p  # 将当前图加入列表
}

# 生成网格布局，ncol/nrow可根据需求调整每行/列的图数量
gridExtra::grid.arrange(grobs = plot_list, ncol = 4)

额外说明 #

• 如果目标变量是分类类型，ggplot会自动使用离散色阶；如果是连续类型，会自动应用渐变色阶，符合默认逻辑；
• ncol参数可根据你变量总数（共32个）调整，比如设为4或8，让布局更美观。

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