R/scale_colour_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
#'

scale_colour_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_colour_manual(values = pal, guide = "none")

}