R/sys.R

In poissonconsulting/poispalette: Poisson Palettes

.pois_colours <- c(
  "black" = "#000000",
  "blue" = "#3063A3",
  "red" = "#E8613C",
  "yellow" = "#F7B500",
  "purple" = "#821C65",
  "green" = "#63BB42",
  "light blue" = "#90BDE5",
  "orchid" = "#D888CF",
  "grey" = "#7D7D7D",
  "pois_blue1" = "#759dbe",
  "pois_blue2" = "#abcbe7"
)

.pois_palettes <- list(
  discrete = .pois_colours[c("black", "blue", "red", "yellow", "purple",
                             "green", "light blue", "orchid", "grey")],
  cool = c("#8EE7E6", "#00B4D8", "#0077B6", "#03045E"),
  hot = c("#FFF708", "#F48C06", "#D00000", "#6A040F", "#410865")
)

.na_colour <- "#7F7F7F"