r - curly curly 整洁的评估和修改输入或其名称

Question

curl curl 新方法整理评测is explained in this article .给出了几个例子来展示这种非标准评估(NSE)风格的使用。

library(tidyverse)

# Example 1 --------------------------
max_by <- function(data, var, by) {
  data %>%
    group_by({{ by }}) %>%
    summarise(maximum = max({{ var }}, na.rm = TRUE))
}
starwars %>% max_by(height)
starwars %>% max_by(height, by = gender)

# Example 2 --------------------------
summarise_by <- function(data, ..., by) {
  data %>%
    group_by({{ by }}) %>%
    summarise(...)
}

starwars %>%
  summarise_by(average = mean(height, na.rm = TRUE),
               maximum = max(height, na.rm = TRUE),
               by = gender)

我创建了一些自己的函数，这确实是一个更容易开发的框架，而不用担心所有的 quosures 和 bangs 以及所有这些。

但是， this same article explains that我们还没有完全走出困境:

You only need quote-and-unquote (with the plural variants enquos() and !!!) when you need to modify the inputs or their names in some way.

...并且没有提供示例。不提示，只是询问是否有人可以填补空白并提供示例。由于不熟悉 Tidy 评估，我真的不明白作者对这句话的看法(请原谅双关语)。

Answer 1

假设您想要以下函数的一个版本，它接受多个输入，而不仅仅是一个 var :

mean_by <- function(data, var, by) {
  data %>%
    group_by({{ by }}) %>%
    summarise(average = mean({{ var }}, na.rm = TRUE))
}

你不能只是通过 ...总结一下，因为那时用户需要调用 mean()他们自己。

mean_by <- function(data, var, ..., by) {
  data %>%
    group_by({{ by }}) %>%
    summarise(...)
}

mtcars %>% mean_by(foo = disp)
#> Error: Column `foo` must be length 1 (a summary value), not 32

mtcars %>% mean_by(foo = mean(disp))
#> # A tibble: 1 x 1
#>     foo
#>   <dbl>
#> 1  231.

解决方案是引用这些点，修改每个输入，以便将它们包装在对 mean() 的新调用中。 ，然后将它们拼接回去:

mean_by <- function(data, ..., by) {
  # `.named` makes sure the dots have default names, if not supplied
  dots <- enquos(..., .named = TRUE)

  # Go over all inputs, and wrap them in a call
  dots <- lapply(dots, function(dot) call("mean", dot, na.rm = TRUE))

  # Finally, splice the expressions back into `summarise()`:
  data %>%
    group_by({{ by }}) %>%
    summarise(!!!dots)
}

我们正在考虑如何改进这种情况的语法。 http://rpubs.com/lionel-/superstache 的早期想法