求助：ggplot2循环绘制多图时Y轴标签无法显示列名问题

你的代码有两个关键问题导致Y轴标签不符合预期：一是ylab()的位置错误，二是在aes()中直接引用列值而非列名，导致ggplot无法关联到列标题。以下是两种可行的修改方案：

方法一：使用tidyeval语法（推荐，适配ggplot2 3.0+） #

for(i in 2:ncol(taxonomy_metadata_combined_p21)) {                              
  # 提取当前列的名称
  y_col_name <- colnames(taxonomy_metadata_combined_p21)[i]
  # 构建ggplot对象，用sym()转换列名为符号，!!解引用
  p <- ggplot(taxonomy_metadata_combined_p21, aes(x = Txt_Sex, y = !!sym(y_col_name))) +
    geom_boxplot() +
    ylab(y_col_name)  # 将列名设为Y轴标签
  print(p)
}

方法二：使用aes_string（兼容旧版ggplot2） #

如果你的ggplot2版本较低，可以用字符串形式传递列名：

for(i in 2:ncol(taxonomy_metadata_combined_p21)) {                              
  y_col_name <- colnames(taxonomy_metadata_combined_p21)[i]
  p <- ggplot(taxonomy_metadata_combined_p21, aes_string(x = "Txt_Sex", y = y_col_name)) +
    geom_boxplot() +
    ylab(y_col_name)
  print(p)
}

问题根源说明 #

1. ylab()位置错误：原代码中ylab()是附加在print()函数之后，而不是作为ggplot图层的一部分，这会导致标签设置不生效。必须将ylab()与ggplot()+geom_boxplot()放在同一链条中。
2. aes()中引用方式错误：直接使用taxonomy_metadata_combined_p21[,i]传递的是数值向量，ggplot无法识别其对应的列名，因此默认显示该表达式作为Y轴标签。通过传递列名（而非直接取数值），才能让ggplot正确关联到列标题，同时我们可以手动指定Y轴标签为列名。

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