用户定义的无参数函数，在 R 中，在管道中

Question

我想写一个没有参数的函数，并且可以在管道中引用（%>%），所以我不必重复几行代码。但是，多次尝试后我没有得到它。我也将感谢有关编写带有参数的管道中引用的函数的帮助。非常感谢您的帮助！简化示例如下：

library(tidyverse)
a <- c(1:10)
b <- c(11:20)
c <- data.frame(a, b)
c
#>     a  b
#> 1   1 11
#> 2   2 12
#> 3   3 13
#> 4   4 14
#> 5   5 15
#> 6   6 16
#> 7   7 17
#> 8   8 18
#> 9   9 19
#> 10 10 20
y <- function() {
  filter(d<5)
}

c %>% mutate(d = a*b) %>% y()
#> Error in y(.): unused argument (.)

^{由reprex package (v0.3.0) 于 2020-08-16 创建}

Answer 1

pipe 认为函数的第一个参数是数据，例如 mutate 或 filter 的第一个参数都是数据。因此，当您执行mtcars %>% mutate(a = 5) 时，您实际上是在执行mutate(mtcars, a = 5)。

因此您必须将其修改为：

y <- function(data) {
  filter(data, d < 80)
}

c %>% mutate(d = a*b) %>% y()

  a  b  d
1 1 11 11
2 2 12 24
3 3 13 39
4 4 14 56
5 5 15 75