使用 R tidyeval 获取列名时出错 [重复]

Question

我正在编写一个通用查找函数来针对小标题执行。当我运行下面的代码时，我得到“错误：找不到对象'x'”

我的真实函数返回不同的错误消息，但我认为对此提供一些指导会有所帮助。

请看下面的代码

library(dplyr)
library(tibble)

fruits <- tibble(
  x = 1:5, 
  y = c("apple", "peach", "pear", "strawberry", "orange")
)

gLookup <- function(datasource, indexColumn, targetValue, lookupColumn){
  datasource %>% 
    filter(indexColumn == targetValue) %>% 
    select(lookupColumn) %>% 
    unlist() %>% 
    unname
}

gLookup(fruits, x, 3, y)

我希望返回“pear”，但我得到的是： 错误：找不到对象“x”

Answer 1

Writing functions with dplyr is a little complicated 因为它的非标准评估。它后面有a solid framework，但需要学习一些工作。对于手头的问题，您需要替换并引用您传入的列名（使用rlang::enquo），然后在要使用它们时取消引用（使用!!）。

library(dplyr)

fruits <- tibble::tibble(
    x = 1:5, 
    y = c("apple", "peach", "pear", "strawberry", "orange")
)

gLookup <- function(datasource, indexColumn, targetValue, lookupColumn){
    indexColumn <- enquo(indexColumn)    # substitute and quote
    lookupColumn <- enquo(lookupColumn)

    datasource %>% 
        filter(!!indexColumn == targetValue) %>%    # unquote with !!
        select(!!lookupColumn) %>% 
        unlist() %>% 
        unname
}

gLookup(fruits, x, 3, y)
#> [1] "pear"

如果您有新版本的 rlang，您可以使用 {{...}} 进行替换、引用和取消引用：

gLookup <- function(datasource, indexColumn, targetValue, lookupColumn){
    datasource %>% 
        filter({{indexColumn}} == targetValue) %>%    # both substitute and quote with `{{...}}`
        select({{lookupColumn}}) %>% 
        unlist() %>% 
        unname
}

gLookup(fruits, x, 3, y)
#> [1] "pear"