I saved you from boring plots. What did you ever do? - Max Fischer (probably)
Tired of generic mass produced palettes for your plots? Short of adding an owl and dressing up your plot in a bowler hat, here’s the most indie thing you can do to one. First round of palettes derived from the amazing Tumblr blog Wes Anderson Palettes.
install.packages("wesanderson")Or the development version
devtools::install_github("karthik/wesanderson")library("wesanderson")
# See all palettes
names(wes_palettes)
#> [1] "BottleRocket1" "BottleRocket2" "Rushmore1" "Rushmore"
#> [5] "Royal1" "Royal2" "Zissou1" "Darjeeling1"
#> [9] "Darjeeling2" "Chevalier1" "FantasticFox1" "Moonrise1"
#> [13] "Moonrise2" "Moonrise3" "Cavalcanti1" "GrandBudapest1"
#> [17] "GrandBudapest2" "IsleofDogs1" "IsleofDogs2" "FrenchDispatch"
#> [21] "AsteroidCity1" "AsteroidCity2" "AsteroidCity3"wes_palette("BottleRocket1")
wes_palette("BottleRocket2")
wes_palette("Rushmore1")
wes_palette("Royal1")
wes_palette("Royal2")
library("ggplot2")
ggplot(mtcars, aes(factor(cyl), fill=factor(vs))) + geom_bar() +
scale_fill_manual(values = wes_palette("Royal1"))
wes_palette("Zissou1")
pal <- wes_palette("Zissou1", 21, type = "continuous")
image(volcano, col = pal)
pal <- wes_palette("Zissou1", 100, type = "continuous")
# heatmap is a local dataset
ggplot(heatmap, aes(x = X2, y = X1, fill = value)) +
geom_tile() +
scale_fill_gradientn(colours = pal) +
scale_x_discrete(expand = c(0, 0)) +
scale_y_discrete(expand = c(0, 0)) +
coord_equal() 
wes_palette("Darjeeling1")
wes_palette("Darjeeling2")
wes_palette("Chevalier1")
wes_palette("FantasticFox1")
wes_palette("Moonrise1")
wes_palette("Moonrise2")
wes_palette("Moonrise3")
wes_palette("Cavalcanti1")
wes_palette("GrandBudapest1")
wes_palette("GrandBudapest2")
wes_palette("IsleofDogs1")
wes_palette("IsleofDogs2")
wes_palette("FrenchDispatch")
wes_palette("AsteroidCity1")
wes_palette("AsteroidCity2")
wes_palette("AsteroidCity3")
- The environmental niche of the global high seas pelagic longline fleet Science Advances 08 Aug 2018