library(dplyr)
# Credit Card Default Data
head(ISLR::Default)
# Generate data for the example
sb <- ISLR::Default %>%
split_by(default)
sb %>%
compare_target_category()
sb %>%
compare_target_category(add_character = TRUE)
sb %>%
compare_target_category(margin = TRUE)
sb %>%
compare_target_category(student)
sb %>%
compare_target_category(student, margin = TRUE)
Run the code above in your browser using DataLab