knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "figure/", fig.height = 1 )
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)
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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.