# NOT RUN {
dat <- as.data.frame(table(sample(letters[1:5], 100, TRUE)))
billboarder(data = dat) %>%
bb_aes(x = Var1, y = Freq) %>%
bb_barchart()
tab <- table(sample(letters[1:5], 100, TRUE), sample(LETTERS[1:5], 100, TRUE))
dat_group <- as.data.frame(tab)
billboarder(data = dat_group) %>%
bb_aes(x = Var1, y = Freq, group = "Var2") %>%
bb_barchart()
# }
Run the code above in your browser using DataLab