test <- data.frame(
a = sample(letters[1:4], 10, replace = TRUE),
b = sample(letters[1:4], 10, replace = TRUE)
)
summ_2col(test, direct = TRUE)
summ_2col(test, direct = FALSE)
if (requireNamespace("circlize")) {
summ_2col(test, direct = TRUE) %>% pcutils::my_circo()
}
Run the code above in your browser using DataLab