Manual color for barchart
Examples
if (FALSE) { # \dontrun{
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)
} # }