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"
wes_palette("BottleRocket1")
wes_palette("BottleRocket2")
wes_palette("Rushmore1")
wes_palette("Royal1")
image.png
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")