Awesome

Wes Anderson Palettes

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.

Installation

install.packages("wesanderson")

Or the development version

devtools::install_github("karthik/wesanderson")

Usage

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"

Palettes

Bottle Rocket (1996)

wes_palette("BottleRocket1")

wes_palette("BottleRocket2")

Rushmore (1998)

wes_palette("Rushmore1")

The Royal Tenenbaums (2001)

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"))

The Life Aquatic with Steve Zissou (2004)

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() 

The Darjeeling Limited (2007)

wes_palette("Darjeeling1")

wes_palette("Darjeeling2")

Hotel Chevalier (2007)

wes_palette("Chevalier1")

Fantastic Mr. Fox (2009)

wes_palette("FantasticFox1")

Moonrise Kingdom (2012)

wes_palette("Moonrise1")

wes_palette("Moonrise2")

wes_palette("Moonrise3")

Castello Cavalcanti (2013)

wes_palette("Cavalcanti1")

The Grand Budapest Hotel (2014)

wes_palette("GrandBudapest1")

wes_palette("GrandBudapest2")

The Isle of Dogs (2018)

wes_palette("IsleofDogs1")

wes_palette("IsleofDogs2")

The French Distpatch (2021)

wes_palette("FrenchDispatch")

Asteroid City (2023)

wes_palette("AsteroidCity1")

wes_palette("AsteroidCity2")

wes_palette("AsteroidCity3")

As seen in these publications

• The environmental niche of the global high seas pelagic longline fleet Science Advances 08 Aug 2018

• Lopus, S., & Frye, M. (2018). Visualizing Africa’s Educational Gender Gap. Socius: Sociological Research for a Dynamic World, 4, 237802311879595