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" "Royal1"
#> [5] "Royal2" "Zissou1" "Darjeeling1" "Darjeeling2"
#> [9] "Chevalier1" "FantasticFox1" "Moonrise1" "Moonrise2"
#> [13] "Moonrise3" "Cavalcanti1" "GrandBudapest1" "GrandBudapest2"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")
ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +
geom_point(size = 3) +
scale_color_manual(values = wes_palette("GrandBudapest1")) +
theme_gray()
