R/scale_fill_dnmye.R

In d4t4tur/comunicacion: DNMyE - Comunicación

#' Constructor de escala de colores de contorno (color) para la dnmye
#'
#' @param palette Nombre de la paleta de colores en `dnmye_paleta()`. Las opciones son _cualitativa_ (por default), _secuencial_, _dicotomica_ y _divergente_
#' @param discrete TRUE (por default) indica que la variable es discreta
#' @param reverse *TRUE* invierte el orden de asignación de colores en la paleta
#' @param ... Argumentos adicionales para definir en discrete_scale() o
#'            scale_color_gradientn(), respectivamente, cuando discrete es TRUE o FALSE
#' @examples
#' datafile <- system.file("toy_evyth.rds", package = "comunicacion")
#' toy_evyth <- readRDS(datafile)
#'
#'library(magrittr)
#'toy_evyth %>%
#'  dplyr::mutate(region_destino = factor(region_destino,
#'                                        labels = c("Ciudad de Buenos Aires",
#'                                                   "Provincia de Buenos Aires - Partidos del GBA",
#'                                                   "Provincia de Buenos Aires - Resto", "Centro",
#'                                                   "Litoral",
#'                                                   "Norte", "Cuyo", "Patagonia"))) %>%
#'  dplyr::group_by(anio, region_destino) %>%
#'  dplyr::summarise(cantidad_personas = sum(pondera)) %>%
#'  ggplot2::ggplot(ggplot2::aes(x = anio,
#'                               y = cantidad_personas,
#'                               fill = region_destino)) +
#'  ggplot2::geom_col(position = ggplot2::position_dodge()) +
#'  scale_fill_dnmye(palette = "cualitativa", discrete = TRUE)
#' @export

### Funcion
scale_fill_dnmye <- function(palette = "cualitativa", discrete = TRUE, reverse = FALSE, ...) {

  pal <- dnmye_paletas(palette = palette, reverse = reverse)

  if (discrete) {
    ggplot2::discrete_scale("fill", paste0("dnmye_", palette), palette = pal, ...)
  } else {
    ggplot2::scale_fill_gradientn(colors = pal(256), ...)
  }
}