R/rh_colors.R

In rhecht95/RHthemes: Attractive ggplot styling and custopm color palettes

# color palettes for use with ggplot

#' pastels1
#'
#' 5 soft, distinct pastel colors apt for graphing.
#' @param color_name
#'
#' @return color name and hex code
#' @export
#'
#' @examples
#' ggplot(aes(x= xVariable, y = yVariable)) + geom_col(fill = pastels1("beige"))
pastels1 <- function(...) {
  pastel1_vec <- c(
    'beige' = "#f4f1de",
    'salmon' = "#e07a5f",
    'grape' = "#3d405b",
    'sage' = "#81b29a",
    'soft yellow' = "#f2cc8f"
  )

  selected_colors <- c(...)

  if (is.null(selected_colors))
    return (pastel1_vec)

  pastel1_vec[selected_colors]

}

pastels2 <- function(...) {
  pastels2_vec <- c(

    'dark plum' = "#4e3d42",
    'forrest green' =  "#4e6e58",
    'periwinkle' = "#a4a8d1",
    'light coffee' = "#b38a58",
    'pastel orange' = "#f78154",
    'pale green' = "#D2E4C4",
    'deep blue' =  "#172A3A",
    'lavender' = "#AA78A6",
    'dandelion' = "#FFD97D"

  )

  selected_colors <- c(...)

  if (is.null(selected_colors))
    return (pastel1_vec)

  pastel1_vec[selected_colors]

}