library(tidyr)
pt <-
pt_m4 %>%
remove_top(1) %>%
define_labels(n_col = 2, n_row = 2) %>%
remove_agg()
pt <-
pt_pivottabler %>%
define_labels(n_col = 2, n_row = 2) %>%
remove_agg("Total") %>%
remove_agg()
Run the code above in your browser using DataLab