R语言ggplot散点图函数如何将变量名设为x/y轴标签

核心原因：你当前的传参逻辑是直接传入数据框的列向量，函数内部只能拿到向量的取值，默认无法获取对应的变量名，所以出现标签不符合预期的问题。这里提供两种可行方案：

方案1：采用ggplot2整洁求值规范改写（推荐） #

这种方式符合tidyverse的设计逻辑，后续扩展也更方便，只需要改写函数定义，调用时直接传入变量名即可，不需要加数据框前缀。
函数改写示例：

library(ggplot2)
scatterplot <- function(data_used, x.variable, y.variable, color.variable) {
  ggplot(data_used, aes(x = {{x.variable}}, y = {{y.variable}}, color = {{color.variable}})) +
    geom_point()
}

调用方式：

scatterplot(data_used = example_data, 
            x.variable = education, 
            y.variable = wages, 
            color.variable = sex)

这种写法下，ggplot会自动把传入的变量名作为对应坐标轴和图例的标签，不需要额外写labs语句。

方案2：兼容现有调用方式，无需修改传参逻辑 #

如果你不想改动现在的传参写法（还是用example_data$xxx的形式传参），可以用deparse(substitute())提取传入参数的表达式，拆分出变量名作为标签：
函数改写示例：

library(ggplot2)
scatterplot <- function(data_used, x.variable, y.variable, color.variable) {
  # 提取变量名
  x_name <- strsplit(deparse(substitute(x.variable)), "\\$")[[1]][2]
  y_name <- strsplit(deparse(substitute(y.variable)), "\\$")[[1]][2]
  color_name <- strsplit(deparse(substitute(color.variable)), "\\$")[[1]][2]
  
  ggplot(data_used, aes(x=x.variable, y = y.variable)) +
    geom_point(aes(color = color.variable)) +
    labs(x = x_name, y = y_name, color = color_name)
}

调用方式和你原来的写法完全一致：

scatterplot(data_used = example_data, x.variable = example_data$education, 
            y.variable = example_data$wages, 
            color.variable = example_data$sex)

运行后即可自动将education、wages设为xy轴标签，sex设为图例标签。

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