# Defenders of Wildlife branded color palettes for use in scientific figure development using ggplot.
# Modelled after @drismonj tutorial. Learn more at
# https://drsimonj.svbtle.com/creating-corporate-colour-palettes-for-ggplot2
# Defenders branded color scales
scale_color_defenders <- function(palette = "main", discrete = TRUE, reverse = FALSE, ...) {
pal <- defenders_pal(palette = palette, reverse = reverse)
if (discrete) {
discrete_scale("colour", paste0("defenders_", palette), palette = pal, ...)
} else {
scale_color_gradientn(colours = pal(256), ...)
}
}
scale_fill_defenders <- function(palette = "main", discrete = TRUE, reverse = FALSE, ...) {
pal <- defenders_pal(palette = palette, reverse = reverse)
if (discrete) {
discrete_scale("fill", paste0("defenders_", palette), palette = pal, ...)
} else {
scale_fill_gradientn(colours = pal(256), ...)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.