R/cpl_palette.R

In lmgibson/cplthemes: Custom ggplot theme and table styling for the California Policy Lab

#' CPL color palette list
#'
#' @format A \code{list}.
#' @export
cpl_palette <- {

    palette <- list(
        brief = list(
            c("#2691d1"),
            c("#2691d1", "#f68b1f"),
            c("#2691d1", "#f68b1f", "#48c5db"),
            c("#2691d1", "#f68b1f", "#48c5db", "#99C642"),
            c("#2691d1", "#f68b1f", "#48c5db", "#99C642", "#809bb2"),
            c("#2691d1", "#f68b1f", "#48c5db", "#99C642", "#809bb2", "#ed3b13"),
            c("#2691d1", "#f68b1f", "#48c5db", "#99C642", "#809bb2", "#ed3b13",
              "#2D3172"),
            c("#2691d1", "#f68b1f", "#48c5db", "#99C642", "#809bb2", "#ed3b13",
              "#2D3172", "#6D6E67")

        ),
        ucla = list(
            c("#015587"),
            c("#015587", "#FFB81C"),
            c("#015587", "#FFB81C", "#8BB8E8"),
            c("#015587", "#FFB81C", "#8BB8E8", "#013B5C"),
            c("#015587", "#FFB81C", "#8BB8E8", "#013B5C", "#C3D7EE"),
            c("#015587", "#FFB81C", "#8BB8E8", "#013B5C", "#C3D7EE", "#6D6E71")

        ),
        ucb = list(
            c("#2D637F"),
            c("#2D637F", "#FDB515"),
            c("#2D637F", "#FDB515", "#01B0DA"),
            c("#2D637F", "#FDB515", "#01B0DA", "#013262"),
            c("#2D637F", "#FDB515", "#01B0DA", "#013262", "#C2B9A7"),
            c("#2D637F", "#FDB515", "#01B0DA", "#013262", "#C2B9A7", "#888888")

        )
    )

    palette
}