我想在我的函数中使用来自filter的{{1}}和summarise。没有功能，它的工作方式如下：
dplyr我想在一个函数中做同样的事情，但是跟随失败：
library(dplyr)
> Orange %>%
+ filter(Tree==1) %>%
+ summarise(age_max = max(age))
age_max
1 1582
我知道以前曾问过类似的问题。我还浏览了一些相关链接，例如page1和page2。但我无法完全掌握NSE和SE的概念。我试过以下：
## Function definition:
df.maker <- function(df, plant, Age){
require(dplyr)
dfo <- df %>%
filter(plant==1) %>%
summarise(age_max = max(Age))
return(dfo)
}
## Use:
> df.maker(Orange, Tree, age)
Rerun with Debug
Error in as.lazy_dots(list(...)) : object 'Tree' not found
但是得到同样的错误。请帮我理解发生了什么。我怎样才能正确创建我的功能？谢谢！
编辑：
我也尝试过：
df.maker <- function(df, plant, Age){
require(dplyr)
dfo <- df %>%
filter_(plant==1) %>%
summarise_(age_max = ~max(Age))
return(dfo)
}
答案 0 :(得分：4)
提供字符参数并使用df.maker1 <- function(d, plant, Age){
require(dplyr)
dfo <- d %>%
filter_(lazyeval::interp(~x == 1, x = as.name(plant))) %>%
summarise_(age_max = lazyeval::interp(~max(x), x = as.name(Age)))
return(dfo)
}
df.maker1(Orange, 'Tree', 'age')
：
age_max
1 1582
substitute
或者使用df.maker2 <- function(d, plant, Age){
require(dplyr)
plant <- substitute(plant)
Age <- substitute(Age)
dfo <- d %>%
filter_(lazyeval::interp(~x == 1, x = plant)) %>%
summarise_(age_max = lazyeval::interp(~max(x), x = Age))
return(dfo)
}
df.maker2(Orange, Tree, age)
age_max
1 1582
https://api.ng.bluemix.net