R/gg-palette-providence.R

In RollieParrish/ProvidenceThemes: A collection of custom palettes and themes for ggplot2 and RMarkdown based on the Providence style guide

#' Providence palette
#'
#' This is the Providence palette based on the Unified Brand style guide
#'
#' @references  https://providence4.sharepoint.com/:b:/r/sites/Brand/Shared%20Documents/Providence_StyleGuide%2011420.pdf?csf=1&web=1&e=7i1SGH
#' @name providence_pal
NULL

#' @name providence_pal
#' @export
# Define disrete palette
providence_pal <- c(

 # providence_colors["green"],
  "#39892F",  # `green`
  "#00338E",  # `blue`
  "#1f3831",  # `forest`
  "#988C73",  # `clay`
  "#1a2c42",  # `navy`
  "#72243A",  # `maroon`
  "#EaE5D0",  # `ivory`
  "#D59A59"   # `ocher`
  #"#FFFFFF",  # `white`

  # `blue`   = "#00338E",
  # `green`  = "#39892F",
  # `white`  = "#FFFFFF",
  # `forest` = "#1f3831",
  # `navy`   = "#1a2c42",
  # `maroon` = "#72243A",
  # `ocher`  = "#D59A59",
  # `ivory`  = "#EaE5D0",
  # `clay`   = "#988C73"

  # `blue tint`   = "#0335ca5",
  # `green tint`  = "#61a159",
  # `white tint`  = "#FFFFFF",
  # `forest tint` = "#4c605a",
  # `navy tint`   = "#485668",
  # `maroon tint` = "#8e5061",
  # `ocher tint`  = "#ddae7a",
  # `ivory tint`  = "#eeead9",
  # `clay tint`   = "#f5f4f1"
  )

#' providence_pal_op
#'
#' @name providence_pal_op
#' @export
# Define opinionated discrete palette (good, neutral, bad)
providence_pal_op <- c(providence_pal[1], providence_pal[4], providence_pal[6])

#' providence_pal_cont
#'
#' @name providence_pal_cont
#' @export
# Define two colors for endpoints of continuous palette
providence_pal_cont <- c(providence_pal[2], providence_pal[8])

#' providence_pal_div
#'
#' @name providence_pal_div
#' @export
# Define three colors for endpoints of diverging continuous pallete (high, middle, low)
providence_pal_div  <- c(providence_pal[1], providence_pal[4], providence_pal[6])