# NOT RUN {
library("data.table")
library("billboarder")
data("mpg", package = "ggplot2")
setDT(mpg)
# all in blue
manufa <- unique(mpg$manufacturer)
cols <- rep("#08298A", length(manufa))
names(cols) <- manufa
# Nissan in red
cols[["nissan"]] <- "#DF0101"#'
billboarder() %>%
bb_barchart(data = mpg[, list(count = .N), by = manufacturer][order(count)]) %>%
bb_bar_color_manual(values = cols)
# }
Run the code above in your browser using DataLab