if (FALSE) {
data(mtcars)
# apply labels
mtcars = apply_labels(mtcars,
cyl = "Number of cylinders",
vs = "Engine",
vs = c("V-engine" = 0,
"Straight engine" = 1),
am = "Transmission",
am = c(automatic = 0,
manual=1),
gear = "Number of forward gears",
carb = "Number of carburetors"
)
# without sorting
mtcars %>% cross_cpct(list(cyl, gear, carb), list("#total", vs, am))
# with sorting
mtcars %>%
cross_cpct(list(cyl, gear, carb), list("#total", vs, am)) %>%
tab_sort_desc
# sort by parameter
sorting_column = "Engine|V-engine"
mtcars %>%
cross_cpct(list(cyl, gear, carb), list("#total", vs, am)) %>%
tab_sort_desc((sorting_column))
}
Run the code above in your browser using DataLab