This is a shameless theft/mashup of:
- Brendan Hurr's idea (also Karthik's) from Noam Ross's tweet
- Code from Karthik Ram's
wesandersonpalette - Foremost: the 130 amazing palettes from beyoncepalettes.tumblr.com
Note: I am (red-green) colourblind. I have no idea whether these colours make sense for data visualisation. Maybe use viridis if you want people like me to be able to see your plots :)
devtools::install_github("dill/beyonce")library(beyonce)par(mfrow=c(26,5))
for(iin1:130) print(beyonce_palette(i))library(ggplot2)
ggplot(iris, aes(Sepal.Length, Sepal.Width, color=Species)) +
geom_point(size=3) +
scale_color_manual(values= beyonce_palette(18)) +
theme_gray()qplot(factor(cyl), data=mtcars, geom="bar", fill=factor(vs)) +
scale_fill_manual(values= beyonce_palette(72))pal<- beyonce_palette(123, 21, type="continuous")
image(volcano, col=pal, asp=1)pal<- beyonce_palette(3, 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()With apologies, DLM




