Pronounced We Are Pals
[pals for palettes ;)]
Palette Colours inspired from a blog post here and here. Palette made following this blog post here.
The goal of werpals is to provide a few additional palettes to use with your ggplot plots.
You can install the development version from GitHub with:
devtools::install_github("sciencificity/werpals")
There are a few functions that may be used with ggplot2 plots:
Disney Like Colours -
Nature Like Colours -
See the palettes -
Call werpals_display(pal = "nature")
or werpals_display(pal =
"disney")
to view the palettes available in each. Thanks to Jonathan
Kitt for this lovely addition!
You may run the examples in the code below to see the difference in applying these colour scales. In addition use the help functions and navigate to the bottom of the help page where you will find some examples.
library(werpals)
library(tidyverse)
# See all palettes of disney
names(disney_palettes)
# See all palettes of nature
names(nature_palettes)
# See number discrete values in "main" the combo palette
str_glue("The number of discrete colours in the `main` disney palette is: {length(disney_palettes[['main']])}")
# See number discrete values in "main" the combo palette
str_glue("The number of discrete colours in the `main` nature palette is: {length(nature_palettes[['main']])}")
# Examples taken from ?scale_colour_discrete and amended
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
(d <- ggplot(dsamp, aes(carat, price)) + geom_point(aes(colour = clarity)))
# Change scale to disney default
d + scale_colour_disney()
# Change scale to disney - `alice` palette
d + scale_colour_disney("alice")
# Lookup colours of one palette
disney_palettes[["cinderella"]]
# Another example taken from ?scale_colour_discrete and amended
miss <- factor(sample(c(NA, 1:5), nrow(mtcars), replace = TRUE))
ggplot(mtcars, aes(mpg, wt)) +
geom_point(aes(colour = miss)) +
scale_colour_disney(palette = "when_i_was_your_age", na.value = "black")
# Fill by discrete variable with different palette + remove legend (guide)
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_nature(palette = "jozi", guide = "none")
# Recreate the plots displayed in the images below
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_nature(palette = "provence", guide = "none")
ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
geom_bar() +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_disney(palette = "cinderella", guide = "none")
werpals::werpals_display("disney")
werpals::werpals_display("nature")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.