调用ggplot()两种方法时出现美学映射错误及变量访问列名需求

你遇到的问题核心在于如何在ggplot的aes()中正确引用存储在变量里的列名，你的PlotTest代码之所以报错，是因为datatest$x并没有解析成你期望的datatest$"alcohol"——在aes()的上下文里，x被当作了列名的字面量，而不是变量x存储的字符串值。也就是说，ggplot在尝试找datatest中名为x的列，而不是变量x指向的alcohol列，自然会报“缺失x、y美学”的错误。

几种可行的解决方案 #

1. 使用.data代词（推荐，ggplot2官方推荐方式）

.data是ggplot2提供的专用代词，可以明确告诉ggplot从数据框中提取对应变量名的列，完美支持用字符串变量指定列名的场景：

library(ggpubr)
library(ggplot2)
redData <- read.csv("http://archive.ics.uci.edu/ml/machine-learning-databases/wine-quality/winequality-red.csv" ,header = TRUE, sep = ";")
datatest <- redData
x <- "alcohol"
y <- "quality"

# 修改后的PlotTest，可正常运行
PlotTest<-ggplot(datatest, aes(.data[[x]], .data[[y]])) + 
  geom_point()+
  xlim(0,15)+
  ylim(0,10)

PlotTest

2. 使用aes_string()（兼容旧版ggplot2，不推荐新代码使用）

如果你使用的是ggplot2 3.0之前的版本，可以用aes_string()来直接传入字符串列名，但这个函数现在已经被.data方式替代：

PlotTest<-ggplot(datatest, aes_string(x, y)) + 
  geom_point()+
  xlim(0,15)+
  ylim(0,10)

3. Tidy Evaluation方式（适合更复杂的表达式）

如果你需要在函数中用到更复杂的表达式，可以结合rlang包的sym()和!!操作符，把字符串转换成符号后注入到aes()中：

library(rlang)
PlotTest<-ggplot(datatest, aes(!!sym(x), !!sym(y))) + 
  geom_point()+
  xlim(0,15)+
  ylim(0,10)

适配你的最终目标：生成多个ggplot对象的函数 #

基于.data的方式，你可以很容易写出一个通用的函数，传入不同的列名就能生成对应的ggplot对象：

generate_scatter_plot <- function(data, x_col, y_col, x_range = c(0,15), y_range = c(0,10)) {
  ggplot(data, aes(.data[[x_col]], .data[[y_col]])) +
    geom_point() +
    xlim(x_range) +
    ylim(y_range)
}

# 示例：生成不同变量组合的图
plot1 <- generate_scatter_plot(datatest, "alcohol", "quality")
plot2 <- generate_scatter_plot(datatest, "pH", "volatile.acidity")

这样你就可以批量生成符合需求的ggplot对象了。

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