#' 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"), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.