我的单参数函数输出一个数据框
library(tidyverse)
myfun <-function(x) {mtcars %>%
filter_(x) %>%
group_by(cyl) %>%
summarise(mean(disp), mean(drat)) %>%
mutate(group=x)}
当将单个参数输入此函数时,它会按预期输出一个数据帧:
myfun('mpg>15')
cyl mean(disp) mean(drat) group
4 105 4.07 mpg>15
6 183 3.59 mpg>15
8 105 3.20 mpg>15
如何将这样的函数应用于参数列表,以便输出是一个数据帧,将列表中的所有结果组合在一起。例如,我想将 myfun 应用于列表
c('mpg>15', 'drat>4.2')
并因此获得单个数据帧:
cyl mean(disp) mean(drat) group
4 105 4.07 mpg>15
6 183 3.59 mpg>15
8 105 3.20 mpg>15
4 89 4.53 drat>4.2
8 351 4.22 drat>4.2
如何做到这一点(最好在 tidyverse 中)?