In OlivierGranacher/customColors: Tools for Custom Colors

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7
)

library(customColors)
library(shades)
library(ggplot2)

Source

Potline Colors

# Base potline colors from jpeg picture
swatch(colorVectorPotline)
names(colorVectorPotline)

swatch(extractColors("red", "greyRed", colorVector = colorVectorPotline))

# Palettes (set of colors) from color vector
potlinePalettes
purrr::map(potlinePalettes, swatch)

# Interpolate Palette to get more colors. Defaut palette is 'redBeigeGrey' from potlinePalette
swatch(interpolatePalette(paletteName = "grey", reverse = T)(10))
swatch(interpolatePalette()(4))

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
    geom_point(size = 4) +
    scale_color_potline()

ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4 ) +
  scale_color_potline(discrete = F, palette = "pinkPurple", reverse = T)

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
    geom_bar() +
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
    scale_fill_potline(guide = "none")

Trimet Colors

swatch(colorVectorTrimet)
names(colorVectorTrimet)
trimetPalette
purrr::map(trimetPalette, swatch)
swatch(interpolatePalette(paletteName = "main",
                          paletteList = trimetPalette,
                          reverse = T)(10))

ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length, color = Sepal.Length)) +
  geom_point(size = 4 ) +
  scale_color_trimet(discrete = F, reverse = T) +
  theme(panel.background = element_rect(fill = "grey80"))

ggplot(mpg, aes(manufacturer, fill = manufacturer)) +
    geom_bar(color = "black") +
    theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
    scale_fill_trimet(guide = "none") +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 90))