sq_data %>%
totals_bind(target_col = "LevelDesignation",
target_value = "Total") %>%
collab_sum(hrvar = "LevelDesignation",
return = "table") %>%
totals_reorder(target_col = "group", target_value = "Total")
Run the code above in your browser using DataLab