That's a damn fine plot, Diane - Special Agent Dale Cooper (probably)
The wesanderson package claimed that "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." So I took them up on that challenge and made the damnfinecolorpalette where the owls are not what they seem. First round of palettes derived from the video Color By Numbers: Twin Peaks, the instagram colorpalatte.cinema, and the use of a color picker extension and screenshots. Concept and code based on the wonderful wesanderson palette generator.
Development version
devtools::install_github("fbenamy/damnfinecolorpalette")library(damnfinecolorpalette)
# See all palettes
names(damnfinecolors)
#> [1] "RedRoom1" "RedRoom2" "BeckyBriggs" "LumberMill"
#> [5] "PhoneBooth" "PeteMartell" "OneEyedJacks" "RRDiner"
#> [9] "Dougie" "AudreyHorne" "LogLady" "SpecialAgent"damnfine("RedRoom1")
damnfine("RedRoom2")
damnfine("BeckyBriggs")
damnfine("LumberMill")
damnfine("PhoneBooth")
damnfine("PeteMartell")
damnfine("OneEyedJacks")
damnfine("RRDiner")
damnfine("Dougie")
damnfine("AudreyHorne")
library("ggplot2")
ggplot(mtcars, aes(factor(cyl), fill=factor(vs))) + geom_bar(color = "black") +
scale_fill_manual(values = damnfine("AudreyHorne"))
damnfine("LogLady")
pal <- damnfine("LogLady", 21, type = "continuous")
image(volcano, col = pal)
pal <- damnfine("LogLady", 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() 
damnfine("SpecialAgent")