powered by
groupBy(df, fact, clmns = names(df), funcs=rep('sum',length(clmns)))
e <- data.frame(a=runif(12),b=runif(12), z=rep(letters[13:18],2),w=rep(letters[20:23],3)) groupBy(df=e, fact=e$w, clmns=c('a','b'), funcs=c('sum','prod'))
Run the code above in your browser using DataLab