if (FALSE) { # rlang::is_installed("thematic") && rlang::is_installed("ggplot2")
brand <- as_brand_yml('
color:
palette:
black: "#1A1A1A"
white: "#F9F9F9"
orange: "#FF6F20"
foreground: black
background: white
primary: orange')
library(ggplot2)
thematic::thematic_with_theme(theme_brand_thematic(brand), {
ggplot(diamonds, aes(carat, price)) +
geom_point()
})
}
Run the code above in your browser using DataLab