如何在函数内部使用 rlang::as_string()？

Question

我正在编写一个函数，其中我提供一个变量名作为符号。在函数的另一个步骤中，我想将变量名用作字符串。根据文档，rlang::as_string“将符号转换为字符串”。

这是一个基本的例子。此函数返回一个标题为 的列的小标题mean。

find_mean <- function(varname){
  tibble(mean = mean(pull(mtcars, {{varname}})))
> find_mean(qsec)
# A tibble: 1 × 1
   mean
  <dbl>
1  17.8

我想将变量名作为字符串添加另一列，如下所示：

# A tibble: 1 × 2
   mean variable
  <dbl> <chr>   
1  17.8 qsec   

我以为这会奏效。

find_mean <- function(varname){
  tibble(mean = mean(pull(mtcars, {{varname}})),
         variable = rlang::as_string({{varname}}))
}

但它返回此错误。

> find_mean(qsec)
 Error in ~qsec : object 'qsec' not found 

我知道我在rlang的非标准评估规则方面犯了一些基本错误，但是谷歌搜索还没有帮助我弄清楚这一点。

Answer 1

我们可以使用ensym转换为symbol 然后应用as_string

find_mean <- function(varname){
  v1 <- rlang::as_string(rlang::ensym(varname))
  tibble(mean = mean(pull(mtcars, {{varname}})),
         variable = v1)
}

-测试

find_mean(qsec)
# A tibble: 1 x 2
   mean variable
  <dbl> <chr>   
1  17.8 qsec    

这也可以完成base R，即deparse/substitute

> find_mean <- function(varname) deparse(substitute(varname))
 
> find_mean(qsec)
[1] "qsec"