tidyeval框架中的逸出超作用域

Question

如果我想使越界显式化，我可以像这样使用.data代词

library(dplyr)

cyl <- 3
transmute(as_tibble(mtcars), cyl_plus_one = .data$cyl + 1)
#> # A tibble: 32 x 1
#>    cyl_plus_one
#>           <dbl>
#>  1            7
#>  2            7
#>  3            5
#>  4            7
#>  5            9
#>  6            7
#>  7            9
#>  8            5
#>  9            5
#> 10            7
#> # ... with 22 more rows

然而，如果我想要避免显式的越界，那么相反的情况又如何呢？在下面的示例中，我想添加一个新列，其中包含值b (通过函数调用提供的值，而不是数据中的b )加上1，这显然不像现在声明的那样工作(因为越界)。

library(dplyr)
add_one <- function(data, b) {
  data %>%
    mutate(a = b + 1)
}
data <- data_frame(
  b  = 999
)
add_one(data, 3)
#> # A tibble: 1 x 2
#>       b     a
#>   <dbl> <dbl>
#> 1   999  1000

我还试图在mutate()调用之外创建新的值，但是我仍然需要依赖于new_val不在数据中。

library(dplyr)
add_one <- function(data, b) {
  new_val <- b + 1
  data %>%
    mutate(a = new_val)
}

Answer 1

只需用!!取消引号，以查找该名称位于数据框架范围之上的变量：

library(tidyverse)

add_one <- function(data, b) {
    data %>% mutate(a = !!b + 1)
}

data <- data_frame(b  = 999)

add_one(data, 3)
#> # A tibble: 1 x 2
#>       b     a
#>   <dbl> <dbl>
#> 1   999  4.00