R/.history/palettes_20220322005726.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("#123447", "#B9D1E3"))

#' Simple Red
#'
#' Color scales for theme_simple
#' @export
simple_red <- colorRampPalette(c("#A6243C", "#F18A7C"))

#' Simple Green
#'
#' Color scales for theme_simple
#' @export
simple_green <- colorRampPalette(c("#4E6010", "#DDCC77"))

#' Sunset
#'
#' Color scales for theme_simple
#' @export
simple_sunset <- colorRampPalette(c("#A6243C", "#024959", "#F2B705", "#F2762E", "#D92929"))

#' 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("#41AB5D", "#252525", "#525252", "#737373", "#969696", "#BDBDBD", "#D9D9D9", "#F0F0F0")

#' Blue as highlight
#'
#' Color scales for theme_simple
#' @export
bluefocus <- c("#0033FF", "#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")