README.md
In skiptoniam/artists: A famous artwork Palette Generator

This is a direct replication of the code from Karthik Ram's wesanderson palette and David Miller's beyonce palette

But, I generated Colour Palettes using the wonderful and inspirational palettes from colorlisa.com

devtools::install_github("skiptoniam/artists")

library(artists)

Here is a complete list of artworks and their colour palettes.

par(mfrow=c(26,5))
for(i in 1:128) print(artist_palette(i))

My only slight tweek is an abilitiy to view the art work your colour palette is based on. This can be achieved by setting see_painting = TRUE

This is one of my favorites

## Adobe (Variant): Luminous Day by Josef Albers

## Warning: package 'jpeg' was built under R version 3.2.3

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 3.2.5

df <- data.frame(
  x = runif(100),
  y = runif(100),
  z1 = rnorm(100),
  z2 = abs(rnorm(100))
)
ggplot(df, aes(x, y)) +
  geom_point(aes(colour = z1,size=z2)) +
  scale_colour_gradientn(colours = artist_palette(1,100,type ='continuous'))

I also really like this one too. Which seems to make nice plots.

## Golden Cloud by Gretchen Albrecht

Here is an example of using this colour palette in ggplot.

library(ggplot2)
ggplot(diamonds, aes(x = price, fill = cut)) +
  geom_histogram(position = "dodge", binwidth = 1000)+
  scale_fill_manual(values = artist_palette(3))

Bauhaus Stairway by Oskar Schlemmer is awesome for heat maps.

## Bauhaus Stairway by Oskar Schlemmer

Here is an example using the old faithful dataset.

cols <- artist_palette(104,100,type ='continuous')
ggplot(faithfuld, aes(waiting, eruptions)) +
     geom_raster(aes(fill = density))+
     scale_fill_gradientn(colours = cols)