对所有变量应用平均函数

Question

我有两个数据集A和B.我想执行分组并为数据集A中的变量wf，sd和数据集B中的所有变量应用均值

数据集A有变量as，df，er，wf，sd，gh，rt，we，sd，xc，as，df，fg，gh，rhj

数据集B有变量we，sd，xc，as，df，fg，gh，rhj，

z<-names(b)
dfdre<-new %>%
group_by( as,df,er) %>%
summarize(numbobs =n(), wf= mean(wf), sd= mean(sd), z= mean(z) z= mean(z)) 

我知道代码中有问题。我正在尝试为变量wf，sd和数据集B中的所有变量应用均值。你能纠正我吗？

Answer 1

我们可以使用summarise_each

z1 <- setdiff(z, c('as', 'df', 'er')
dfdre<-  a %>%
             group_by( as,df,er) %>%
             summarise_each_(funs(mean), one_of("wf", "sd", z1))