在嵌套函数中使用相同的参数名称会导致意外输出

Question

为什么前三个函数（f2、f3、f4）只返回 y 中 id = 1 的行，而 f5 返回 y 的所有行？

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

y <- tibble(id = c(1, 2))


f1 <- function(y, id) {
  y %>% filter(.data$id == {{id}})
}


f2 <- function(id) {
  f1(y, !!id)
}

f3 <- function(id) {
  f1(y, {{id}})
}

f4 <- function(x) {
  f1(y, x)
}

f5 <- function(id) {
  f1(y, id)
}


f2(1)
#> # A tibble: 1 x 1
#>      id
#>   <dbl>
#> 1     1
f3(1)
#> # A tibble: 1 x 1
#>      id
#>   <dbl>
#> 1     1
f4(1)
#> # A tibble: 1 x 1
#>      id
#>   <dbl>
#> 1     1
f5(1)
#> # A tibble: 2 x 1
#>      id
#>   <dbl>
#> 1     1
#> 2     2

^{由reprex package (v0.3.0) 于 2020 年 11 月 15 日创建}

Answer 1

如果你改变你的函数来显示它正在评估什么，它可能更有意义

f1 <- function(y, id) {
  print(rlang::quo_squash(quo(y %>% filter(.data$id == {{id}}))))
  y %>% filter(.data$id == {{id}})
}

使用f5，您会得到

y %>% filter(.data$id == id)

所以它返回id 列等于id 列（即每一行）的所有行。

在从 data.frame 中选择列时，您应该使用 {{}}。尝试指定文字 data.value 是没有用的。

如果您将f1 定义为，您的所有示例都将有效

f1 <- function(y, id) {
  y %>% filter(.data$id == .env$id)
}