Open pablotis opened 2 years ago
paletas <- list( `c2_continuo` = c("#50B8B1", "#9283BE"), `c2_contraste` = c("#50B8B1", "#EE3D8F"), `c10_todos` = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#AAAAAA", "#E7E7E7", "#50B8B1", "#9283BE", "#37BBED", "#50535C")) #rlang::check_installed("grDevices", reason = "Para usar `dnmye_paletas()`") pal <- paletas[[palette]] if (reverse) pal <- rev(pal) grDevices::colorRampPalette(pal, ...) }
paletas <- list( `c2_continuo` = c("#50B8B1", "#9283BE"), `c2_contraste` = c("#50B8B1", "#EE3D8F"), `c8_todos` = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#50B8B1", "#9283BE", "#37BBED", "#50535C")) #rlang::check_installed("grDevices", reason = "Para usar `dnmye_paletas()`") pal <- paletas[[palette]] if (reverse) pal <- rev(pal) grDevices::colorRampPalette(pal, ...) }
paletas <- list( `c2_continuo` = c("#50B8B1", "#9283BE"), `c2_contraste` = c("#50B8B1", "#EE3D8F"), `c8` = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#50B8B1", "#9283BE", "#37BBED", "#50535C"), `c10_todos` = c("#EE3D8F", "#F7941E", "#FFD100", "#D7DF23", "#AAAAAA", "#E7E7E7", "#50B8B1", "#9283BE", "#37BBED", "#50535C")) #rlang::check_installed("grDevices", reason = "Para usar `dnmye_paletas()`") pal <- paletas[[palette]] if (reverse) pal <- rev(pal) grDevices::colorRampPalette(pal, ...) }
Mi productividad aumentó un 200% con estas opciones
Bien! Cuál te pareció mejor?
Opción 1: Pasar grises al centro de la paleta:
Opción 2: sacar grises de la paleta C10_todos:
Opción 3: Armar dos paletas, una con grises otra sin grises