将ggplot2变量作为函数参数传递：fill美学无法正确映射层级

将ggplot2绘图代码封装成函数后，调用仅生成单一颜色的小提琴图，原代码中color层级可正确映射至绘图。已用browser()和unique()确认数据层级正常，无报错信息。

可正常运行的原代码 #

#### 加载并预处理数据集 ####
data(diamonds)

### 为carat创建分箱 ###
carat_bins <- seq(0, ceiling(max(diamonds$carat) * 2) / 2, by = 0.5)  

### 将分箱加入数据集 ###
diamonds$carat_bin <- cut(diamonds$carat, breaks = carat_bins, include.lowest = TRUE)

#### 绘图 ####
ggplot(diamonds, aes(x = carat_bin, y = price, fill = color)) +
  geom_violin(position = "identity", alpha = 0.15) +
  labs(x = "克拉", y = "价格", fill = "颜色") +
  ggtitle("按克拉和颜色划分的钻石价格分布") +
  theme_minimal()

重构后存在问题的函数代码 #

#### 绘图函数 ####
my_plot <- function(x_var, fill_var) {
  
  ### 确保fill_var是因子类型 ###
  diamonds[[fill_var]] <- factor(diamonds[[fill_var]])
  
  ggplot(diamonds, aes(x = x_var, y = price, fill = fill_var)) +
    geom_violin(position = "identity", alpha = 0.15)
}

#### 测试调用 ####
my_plot("carat_bin", "color")

正常输出 #

重构后错误输出 #

问题根源 #

在aes()中直接使用传入的字符串参数（x_var、fill_var）时，ggplot2不会将其解析为数据框的列名，而是把字符串本身当作单一分组值处理，导致所有数据被归为同一组，fill映射自然失效。

修正后的函数代码 #

使用ggplot2推荐的.data代词，明确告诉ggplot2去数据框中查找对应列：

#### 修正后的绘图函数 ####
my_plot <- function(x_var, fill_var) {
  
  ### 确保fill_var是因子类型 ###
  diamonds[[fill_var]] <- factor(diamonds[[fill_var]])
  
  ggplot(diamonds, aes(x = .data[[x_var]], y = price, fill = .data[[fill_var]])) +
    geom_violin(position = "identity", alpha = 0.15) +
    labs(x = x_var, y = "价格", fill = fill_var) +
    ggtitle(paste("按", x_var, "和", fill_var, "划分的钻石价格分布")) +
    theme_minimal()
}

#### 测试调用 ####
my_plot("carat_bin", "color")

补充说明 #

• .data是ggplot2专为编程场景设计的特殊对象，用于通过字符串引用数据列，是替代旧方法aes_string()的首选方案。
• 也可使用!!sym(fill_var)的写法（需加载rlang包），但.data的语法更直观易懂。

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