# NOT RUN {
data <- dplyr::starwars %>%
tab_prepare(sex, hair_color, gender, rare_to_other = TRUE,
n_min = 5, na_drop_all = sex)
data %>%
tab_plain(sex, hair_color, gender) %>%
tab_totaltab("line")
# }
Run the code above in your browser using DataLab