循环绘制多幅ggplot图：按数据框不同列设置点颜色的问题

问题根源 #

你代码里的aes(colour=i)是把字符串i本身当作颜色映射的变量，而非引用数据框中名为i的列的值。ggplot的非标准求值机制会将i识别成字面量，导致所有点的颜色对应同一个固定“分类”，自然无法实现按目标列值着色的效果。

可行修正方法 #

方法1：使用.data代词（推荐，tidyverse标准用法） #

利用.data代词直接引用字符串对应的列，这是tidyverse官方推荐的清晰写法：

data(iris)
list_data=c("Petal.Length", "Petal.Width")
plot_list = list()
for (i in list_data) {
  p = ggplot(iris, aes(y=Sepal.Length, x=Sepal.Width)) +
    geom_point(size=3, aes(colour=.data[[i]]))
  plot_list[[i]] = p
}

pdf("plots.pdf")
for (i in list_data) {
  print(plot_list[[i]])
}
dev.off()

方法2：使用aes_string（兼容旧版ggplot） #

若你的ggplot版本较低，可使用aes_string直接传入字符串格式的变量名：

data(iris)
list_data=c("Petal.Length", "Petal.Width")
plot_list = list()
for (i in list_data) {
  p = ggplot(iris, aes(y=Sepal.Length, x=Sepal.Width)) +
    geom_point(size=3, aes_string(colour=i))
  plot_list[[i]] = p
}

pdf("plots.pdf")
for (i in list_data) {
  print(plot_list[[i]])
}
dev.off()

方法3：使用tidyeval的sym()与!! #

这是tidyverse的元编程方案，适用于更复杂的变量引用场景：

library(rlang)
data(iris)
list_data=c("Petal.Length", "Petal.Width")
plot_list = list()
for (i in list_data) {
  col_sym <- sym(i)
  p = ggplot(iris, aes(y=Sepal.Length, x=Sepal.Width)) +
    geom_point(size=3, aes(colour=!!col_sym))
  plot_list[[i]] = p
}

pdf("plots.pdf")
for (i in list_data) {
  print(plot_list[[i]])
}
dev.off()

补充说明 #

以上三种方法都能解决批量绘图的颜色映射问题，其中.data代词的写法最直观易懂，也符合最新的tidyverse编码规范，完全适配你30列数据的批量绘图需求。

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