rollup

rollup: A Tidy implementation of grouping sets, rollup and cube, which are extensions of the group_by clause that compute multiple group_by clauses in a single statement.

Install 

# From CRAN
install.packages("rollup")

# From Github
devtools::install_github("JuYoungAhn/rollup")

CRAN_Download_Badge

In a Nutshell

  • If you want to learn more about rollup, please refer to the Tutorial.
mtcars %>% group_by(vs, am) %>% grouping_sets("vs","am",c("vs","am"),NA) %>% 
  summarize(n=n(), avg_mpg=mean(mpg))

mtcars %>% group_by(vs, am) %>% with_rollup() %>% 
  summarize(n=n(), avg_mpg=mean(mpg))

mtcars %>% group_by(vs, am) %>% with_cube() %>% 
  summarize(n=n(), avg_mpg=mean(mpg))

# Customize total labels and position
mtcars %>% group_by(vs, am) %>% 
  with_rollup(total_label = "Total", total_on_top = TRUE) %>% 
  summarize(n=n(), avg_mpg=mean(mpg))

New Features

Custom Total Labels

Replace NA values in total rows with custom labels:

mtcars %>% group_by(vs, am) %>% 
  with_rollup(total_label = "Total") %>% 
  summarize(n=n(), avg_mpg=mean(mpg))

Total Rows on Top

Move total/subtotal rows to the top of the result:

mtcars %>% group_by(vs, am) %>% 
  with_cube(total_label = "Grand Total", total_on_top = TRUE) %>% 
  summarize(n=n(), avg_mpg=mean(mpg))

These parameters work with grouping_sets(), with_rollup(), and with_cube().