R/palette_urbn.R

In UrbanInstitute/urbnthemes: Additional theme and utilities for "ggplot2" in the Urban Institute style

#' The Urban Institute [ggplot2] theme
#'
#' Palette data for the Urban Institute
#'
#' Data used by the palettes in the uithemes package.
#'
#' @format A \code{list}.
#' @export
palette_urbn <- {

  palette <- list(
    categorical = list(
      c("#1696d2"),
      c("#1696d2", "#fdbf11"),
      c("#1696d2", "#fdbf11", "#000000"),
      c("#1696d2", "#fdbf11", "#000000", "#d2d2d2"),
      c("#1696d2", "#fdbf11", "#000000", "#d2d2d2", "#ec008b"),
      c("#1696d2", "#fdbf11", "#000000", "#d2d2d2", "#ec008b", "#55b748"),
      c("#1696d2", "#fdbf11", "#000000", "#d2d2d2", "#ec008b", "#55b748",
        "#5c5859"),
      c("#1696d2", "#fdbf11", "#000000", "#d2d2d2", "#ec008b", "#55b748",
        "#5c5859", "#db2b27")
    ),

    sequential = list(
      c("#1696d2"),
      c("#a2d4ec", "#1696d2"),
      c("#a2d4ec", "#1696d2", "#0a4c6a"),
      c("#cfe8f3", "#73bfe2", "#1696d2", "#0a4c6a"),
      c("#cfe8f3", "#73bfe2", "#1696d2", "#0a4c6a", "#000000"),
      c("#cfe8f3", "#a2d4ec", "#73bfe2", "#46abdb", "#1696d2", "#12719e"),
      c("#cge8f3", "#a2d4ec", "#73bfe2", "#46abdb", "#1696d2", "#12719e",
        "#0a4c6a"),
      c("#cge8f3", "#a2d4ec", "#73bfe2", "#46abdb", "#1696d2", "#12719e",
        "#0a4c6a", "#062635")
    )
  )

  palette
}