# NOT RUN {
mtcars_grouped_summary <- mtcars %>%
dplyr::group_by(vs, am) %>%
dplyr::summarise(n_low = n() > 6, n_high = n() < 10)
spread_groups(mtcars_grouped_summary, vs, am)
spread_groups(mtcars_grouped_summary, vs, am, .group_sep = "__")
spread_groups(mtcars_grouped_summary, vs, am, .col_sep = "__")
# }
Run the code above in your browser using DataLab