R/scale_colour_Publication.R

In HanjoStudy/quotidieR: Everyday functions for my personal use in analytics

#' @title Theme to be used in journal publications
#' @description Theme for use in journals
#' @return NA
#' @export

scale_colour_Publication <- function(...){
  library(scales)
  discrete_scale("colour","Publication",manual_pal(values = c("#386cb0","#fdb462","#7fc97f","#ef3b2c","#662506","#a6cee3","#fb9a99","#984ea3","#ffff33")), ...)
  
}