R/scale_fill_crayola.R

In einarhjorleifsson/ggmisc: My gg extentions

#' Crayola colour
#'
#'
#' @param n Number of repeats of the colours, default set to 100
#' @param ... Additional parameters to pass to  \code{scale_fill_manual}.
#'
#' @return NULL
#' @export
#'
#' @examples
#' library(ggplot2)
#' d <-
#'   expand.grid(year = 2000:2010,
#'               age = 1:10)
#' d$yc <- as.factor(d$year - d$age)
#' d$value <- rnorm(nrow(d))
#' ggplot(d) +
#'   geom_bar(aes(year, value, fill = yc), stat = "identity") +
#'   facet_grid(age ~ .) +
#'   scale_fill_crayola() +
#'   theme(legend.position = "none")

scale_fill_crayola <- function(n = 100, ...) {

  # taken from RColorBrewer::brewer.pal(12, "Paired")
  pal <- c("#A6CEE3", "#1F78B4", "#B2DF8A", "#33A02C",
           "#FB9A99", "#E31A1C", "#FDBF6F", "#FF7F00",
           "#CAB2D6", "#6A3D9A", "#FFFF99", "#B15928")
  pal <- rep(pal, n)
  ggplot2::scale_fill_manual(values = pal, guide = "none")

}