ggplot与dplyr如何在函数中选择未引号变量？

你遇到的这个问题，核心在于非标准求值（Non-Standard Evaluation, NSE）——这正是tidyverse系列包（比如dplyr、ggplot2）能让我们用简洁的未引号变量语法的关键，而R的默认函数用的是标准求值（Standard Evaluation, SE），两者的逻辑完全不同。

1. 先搞懂两种求值方式的区别 #

• 标准求值（SE）：这是R的默认行为。当你在函数里用一个变量时，R会先尝试在当前环境（比如函数环境、全局环境）中找到这个变量的具体值，找不到就报错。比如你写的自定义函数：

foo <- function(df, x){
  df %>% select(x)
}
foo(mtcars, cyl)

调用foo(mtcars, cyl)时，R会先在全局环境找cyl这个对象——但你并没有定义过cyl变量，它只是mtcars的列名，所以自然会报“找不到对象”的错误。

• 非标准求值（NSE）：tidyverse的函数会捕获你输入的表达式本身，而不是先去求值。比如dplyr::select(mtcars, cyl)，函数内部不会先找cyl变量，而是把cyl作为一个“符号”保存下来，然后到传入的数据框mtcars里去匹配对应的列。

2. ggplot2和dplyr具体是怎么做的？ #

对于dplyr：用整洁求值（Tidy Evaluation）实现 #

现在dplyr推荐用整洁求值的语法（基于rlang包），最常用的就是{{ }}（大括号语法，也叫“curly-curly”），它是enquo()和!!的语法糖，能帮你把未引号的变量转换成数据框的列引用。

把你的自定义函数改成这样就能正常运行：

library(dplyr)
foo <- function(df, x){
  df %>% select({{x}})
}
foo(mtcars, cyl)

{{x}}的作用是：捕获你传入的cyl这个表达式，告诉dplyr“去df里找名为cyl的列”，而不是在全局环境找cyl变量。

如果你想理解底层原理，可以用rlang的原始函数实现：

library(dplyr)
library(rlang)
foo <- function(df, x){
  # 捕获输入的表达式
  x_expr <- enquo(x)
  # 解引用表达式，告诉dplyr去数据框里匹配
  df %>% select(!!x_expr)
}

效果和用{{ }}完全一致。

对于ggplot2：aes()的特殊求值逻辑 #

ggplot2的aes()函数也用了类似的NSE机制，但它的逻辑是把你输入的表达式保存下来，等到绘图时再结合传入的数据框进行求值。比如：

ggplot(mtcars, aes(mpg, cyl)) + geom_point()

aes(mpg, cyl)并没有立即去全局环境找mpg和cyl，而是把这两个表达式存储起来，当ggplot调用mtcars时，才会到mtcars里提取对应的列数据。

如果你想在自定义函数里用ggplot的未引号变量，同样可以用{{ }}：

plot_foo <- function(df, x, y){
  ggplot(df, aes({{x}}, {{y}})) + geom_point()
}
plot_foo(mtcars, mpg, cyl)

这样就能正常生成图表。

3. 总结一下 #

• R默认用标准求值，会先找变量的具体值，所以自定义函数直接用未引号变量会报错；
• tidyverse的函数用非标准求值（现在是整洁求值），通过{{ }}等语法捕获表达式，到数据框里匹配列；
• 写支持未引号变量的自定义函数时，用{{ }}是最简单、最推荐的方式，既简洁又避免歧义。

内容的提问来源于Stack Exchange，提问作者Mikey Harper