# 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