library(ggplot2)
ggplot(mtcars, aes(factor(cyl), fill = factor(cyl))) +
geom_bar() +
scale_fill_stratpal("stratpal_rpg")
# Override one color
scale_fill_stratpal("stratpal_rpg", overrides = c("volcanic" = "orange"))
# Allow missing categories to be filled with gray
scale_fill_stratpal("stratpal_grays", allow_na = TRUE)
Run the code above in your browser using DataLab