library(dplyr) tab %>% group_by(month, variable) %>% summarise(a_sum=sum(amount), a_mean=(mean(amount)))