powered by
regroup(df, old, new, clmns, funcs=rep('sum',length(clmns)), combine=TRUE)
df <- data.frame(a=rnorm(20),b=rpois(20,1)) mapping <- data.frame(old=rownames(df), new=rep(c('a','b'),10)) regroup(df, old=mapping$old, new=mapping$new)
Run the code above in your browser using DataLab