R/scale-color.R

In CSAFE-ISU/csafethemes: ggplot2 Themes and Scales for CSAFE

#' csafe scale color
#'
#' @export
#' @name scale_color_csafe
#' @author Sam Tyner
#' @title CSAFE scale color for ggplot2
#' @examples
#' scale_color_csafe(theme="primary")


scale_color_csafe <- function(theme="primary", csafe_key = list(
  primary = c("#40B4E5", "#003A70", "#77BC1F", "#CF0A2C", "#8A8A8D"),
  secondary = c("#9F1B96", "#EA1D76", "#AC162C", "#00833E", "#E11383", "#E4E833",
    "#F5BD47", "#555759", "#2E5597", "#6BA2B9", "#FA8D29", "#005487")
)) {

  scale_color_manual(values=csafe_key[[theme]])

}


#' csafe scale color
#'
#' @export
#' @name scale_color_malisha
#' @author Sam Tyner
#' @title Malisha's scale color for ggplot2
#' @examples
#' scale_color_malisha()


scale_color_malisha <- function(...) {

  scale_color_manual(values=c("Hotpink", "yellow", "blue",
                             "purple", "green"), ...)
}