R/palette_jah.R

In hepplerj/jahMisc:

#' My [ggplot2] theme
#'
#' @format A \code{list}.
#' @export
palette_jah <- {

  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
}