R/scale_brewer_pal.R

In diegogarcilazo/myutilities: Collection of functions that I use frequently.

#' Create palette Color Brewer from factor levels.
#' @param x factor or chr vector
#' @param palette chr: "Blues", "Reds", "Greens","Greys". Default: "Blues".
#' @return chr vector.
#' 

scale_brewer_pal <- function(x, palette = "Blues"){
  
  stopifnot(is.factor(x) | is.character(x))
  
  if(is.factor(x)){n <- length(levels(x))}
  
  if(is.character(x)){n <- length(levels(factor(x)))}
  
  RColorBrewer::brewer.pal(n, palette)
}