devtools::install_github("vikjam/RColorLisa")

# Create a sequential palette for usage and show colors library(RColorLisa) pretty.palette <- color.lisa.pal(5, "The Dream by Pablo Picasso") image(1:5, 1, as.matrix(1:5), col = pretty.palette, xlab = "The Dream by Pablo Picasso", ylab = "", xaxt = "n", yaxt = "n", bty = "n")

# ggplot2 example library(ggplot2) library(RColorLisa) df <- data.frame(x = rep(c(2, 5, 7, 9, 12), 2), y = rep(c(1, 2), each = 5), z = factor(rep(1:5, each = 2))) escher.pal <- color.lisa.pal(5, "Gravity by M.C. Escher") ggplot(df, aes(x, y)) + geom_tile(aes(fill = z)) + scale_fill_manual(values = escher.pal)

# Slightly more practical ggplot2 example library(ggplot2) library(RColorLisa) ernst.pal <- color.lisa.pal(3, "Woman, Old Man, and Flower by Max Ernst") ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + geom_point(size = 3) + scale_color_manual(values = ernst.pal)

# A gradient library(ggplot2) library(RColorLisa) rothko.pal <- color.lisa.pal(5, "Untitled (Orange, Yellow, Red) by Mark Rothko") ggplot(faithfuld, aes(waiting, eruptions)) + geom_raster(aes(fill = density), interpolate = TRUE) + scale_fill_gradientn(colours = rothko.pal)