如何在ggplot中通过循环遍历字符串列名生成多幅密度图？

我明白你遇到的困扰了——用循环遍历字符串列名时，ggplot的aes()函数不认这些字符串，因为它默认采用非标准求值，会把字符串当成普通文本，而不是你实际要引用的数据列。我来帮你修正代码，同时拆解关键的修改点：

核心问题分析 #

ggplot的aes()函数默认会直接解析变量名，而不是字符串。比如你传var进去，它会找一个叫var的列，而不是vars向量里的a/b/c这些列。所以我们需要明确告诉ggplot：要引用数据框中名字等于var字符串的列。

修正后的完整代码 #

library(ggplot2)
library(dplyr)

# 设置随机种子，让生成的数据可重复，方便调试
set.seed(123)

# 生成并整理df1
a1 <- rnorm(100, 3, 1.2)
b1 <- rnorm(100, 2, 0.5)
c1 <- rnorm(100, 4, 1.5)
d1 <- rnorm(100, 5, 0.2)
e1 <- rnorm(100, 6, 0.7)
df_1 <- data.frame(a1, b1, c1, d1, e1) %>%
  rename(a = a1, b = b1, c = c1, d = d1, e = e1)

# 生成并整理df2
a2 <- rnorm(50, 3, 1.2)
b2 <- rnorm(50, 2, 0.5)
c2 <- rnorm(50, 4, 1.5)
d2 <- rnorm(50, 5, 0.2)
e2 <- rnorm(50, 6, 0.7)
df_2 <- data.frame(a2, b2, c2, d2, e2) %>%
  rename(a = a2, b = b2, c = c2, d = d2, e = e2)

# 要遍历的列名向量
vars <- c('a', 'b', 'c', 'd', 'e')

# 修正后的绘图循环
for (var in vars){
  plot_name <- ggplot() +
    # 用.data[[var]]引用字符串对应的列，这是tidyverse推荐的方法
    geom_density(data = df_1, aes(x = .data[[var]], color = "df 1")) +
    geom_density(data = df_2, aes(x = .data[[var]], color = "df 2")) +
    # 加上清晰的标签，让图形更易读
    labs(x = var, color = "Dataset") +
    theme_minimal() # 可选：美化图形主题
  
  # 保存生成的图形
  ggsave(paste0(var, ".pdf"), plot = plot_name, width = 8, height = 5, units = "in", dpi = 300)
}

关键修改说明 #

1. .data[[var]]的使用：这是解决问题的核心，它明确告诉ggplot：从当前数据框中提取名字等于var字符串的列，完美适配循环中的字符串变量。
2. 修正geom_density的语法：原代码中第二个geom_density的括号位置错误，我把data参数放到了每个geom的括号内，确保每个图层使用正确的数据框。
3. 添加标签和主题：labs()让图形的x轴和图例更清晰，theme_minimal()可以让图形更美观（可选）。
4. 设置随机种子：保证每次运行生成的数据一致，方便调试和验证结果。

备选方法（旧版语法） #

如果你习惯用旧版tidyverse语法，也可以用aes_string()直接传字符串列名，比如：

geom_density(data = df_1, aes_string(x = var, color = "'df 1'"))

不过这种方法已经被.data代词取代，更推荐使用前面的方法，因为它更直观且符合现代tidyverse的规范。

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