如何使用 dplyr 在 NSE 中获取变量的名称

问题描述

所以我多次找到各种不同的方法来实现这一点，但在过去一年左右的时间里，dplyr 处理非标准评估的方式发生了变化。基本上实现这一目标的一种方法如下：

require("dplyr")
test <- function(var){
  mtcars %>% select({{var}})
  print(quo_name(enquo(var)))
}

test(wt)
#> [1] "wt"

到 2021 年，是否有更直接的方法来实现这一目标？我可以发誓有更简单的东西。

解决方法

使用 ensym() 中的 rlang：

require("dplyr")
require("rlang")
test <- function(var){
    mtcars %>% select({{var}})
    print(ensym(var))
}

test(wt)
#>wt

as.character(test(wt))
#>wt
#>[1] "wt"

,

我们可以在deparse/substitute中使用base R

test <- function(var) deparse(substitute(var))

test(wt)
#[1] "wt"