.history/R/palettes_20230622175320.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("#E69F00","#56B4E9","#009E73","#F0E442","#0072B2","#D55E00","#CC79A7", "#999999", "#000000", "#56B4E9", "#009E73","#D55E00", "#CC79A7","#F5C710","#F5C710")

#' Okabe-Ito (black first color)
#'
#' Color scales for theme_simple
#' @export
simple_okabeito_blackfirst <- c("#E69F00","#56B4E9","#009E73","#F0E442","#0072B2","#D55E00","#CC79A7", "#999999", "#000000", "#56B4E9", "#009E73","#D55E00", "#CC79A7","#F5C710","#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")