.history/R/palettes_20230622125721.R

In albinomatheus/toolbox: Matheus' personal functions and palettes

#' Simple Grey
#'
#' Color scales for theme_simple
#' @export
simple_grey <- colorRampPalette(c("#252525", "#d9d9d9"))

#' Simple Blue
#'
#' Color scales for theme_simple
#' @export
simple_blue <- colorRampPalette(c("#08306b", "#c6dbef"))

#' Simple Red
#'
#' Color scales for theme_simple
#' @export
simple_red <- colorRampPalette(c("#67000d", "#fcbba1"))

#' Simple Green
#'
#' Color scales for theme_simple
#' @export
simple_green <- colorRampPalette(c("#00441b", "#c7e9c0"))

#' Sunset
#'
#' Color scales for theme_simple
#' @export
simple_sunset <- colorRampPalette(c("#581845", "#9a0e3e", "#d11d39", "#ed5934", "#fd8e28", "#ffc300"))

#' Okabe-Ito
#'
#' Color scales for theme_simple
#' @export
simple_okabeito<- c(`orange` = "#E69F00",
  `light blue` = "#56B4E9",
  `green` = "#009E73",
  `yellow` = "#F0E442",
  `blue` = "#0072B2",
  `red` = "#D55E00",
  `purple` = "#CC79A7",
  `grey` = "#999999",
  `black` = "#000000",
  `sky blue` = "#56B4E9",
  `bluish green` = "#009E73",
  `vermillion` = "#D55E00",
  `reddish purple` = "#CC79A7",
  `dark yellow` = "#F5C710",
  `amber` = "#F5C710"
)

#' Red as highlight
#'
#' Color scales for theme_simple
#' @export
redfocus <- c("#D92929", "#252525", "#525252", "#737373", "#969696", "#BDBDBD", "#D9D9D9", "#F0F0F0")

#' Green as highlight
#'
#' Color scales for theme_simple
#' @export
greenfocus <- c("#4E6010", "#252525", "#525252", "#737373", "#969696", "#BDBDBD", "#D9D9D9", "#F0F0F0")

#' Blue as highlight
#'
#' Color scales for theme_simple
#' @export
bluefocus <- c("#024959", "#252525", "#525252", "#737373", "#969696", "#BDBDBD", "#D9D9D9", "#F0F0F0")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative1 <- c("#4477AA")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative2 <- c("#4477AA", "#CC6677")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative3 <- c("#4477AA", "#DDCC77", "#CC6677")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative4 <- c("#4477AA", "#117733", "#DDCC77", "#CC6677")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative5 <- c("#332288", "#88CCEE", "#117733", "#DDCC77", "#CC6677")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative6 <- c("#332288", "#88CCEE", "#117733", "#DDCC77", "#CC6677","#AA4499")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative7 <- c("#332288", "#88CCEE", "#44AA99", "#117733", "#DDCC77", "#CC6677","#AA4499")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative8 <- c("#332288", "#88CCEE", "#44AA99", "#117733", "#999933", "#DDCC77", "#CC6677","#AA4499")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative9 <- c("#332288", "#88CCEE", "#44AA99", "#117733", "#999933", "#DDCC77", "#CC6677", "#882255", "#AA4499")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative10 <- c("#332288", "#88CCEE", "#44AA99", "#117733", "#999933", "#DDCC77", "#661100", "#CC6677", "#882255", "#AA4499")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative11 <- c("#332288", "#6699CC", "#88CCEE", "#44AA99", "#117733", "#999933", "#DDCC77", "#661100", "#CC6677", "#882255", "#AA4499")

#' Qualitative color schemes by Paul Tol
#'
#' Color scales for theme_simple
#' @export
qualitative12 <- c("#332288", "#6699CC", "#88CCEE", "#44AA99", "#117733", "#999933", "#DDCC77", "#661100", "#CC6677", "#AA4466", "#882255", "#AA4499")


# Palette --------------------------------------------------------------------

# The palette from: https://jfly.uni-koeln.de/color/#pallet
#' @export
okabeito_colors <- c(
  `orange` = "#E69F00",
  `light blue` = "#56B4E9",
  `green` = "#009E73",
  `yellow` = "#F0E442",
  `blue` = "#0072B2",
  `red` = "#D55E00",
  `purple` = "#CC79A7",
  `grey` = "#999999",
  `black` = "#000000",
  `sky blue` = "#56B4E9",
  `bluish green` = "#009E73",
  `vermillion` = "#D55E00",
  `reddish purple` = "#CC79A7",
  `dark yellow` = "#F5C710",
  `amber` = "#F5C710"
)