DOKRY Desarrollo
  1. DOKRY Desarrollo
  3. Emular la paleta de colores predeterminada ggplot2

Emular la paleta de colores predeterminada ggplot2

¿Qué función puedo usar para emular la paleta de colores predeterminada de ggplot2 para una cantidad de colores deseada? Por ejemplo, una entrada de 3 produciría un vector de caracteres de colores HEX con estos colores: enter image description here

Se trata de tonalidades equidistantes alrededor de la rueda de colores, comenzando desde 15: 

 gg_color_hue <- function(n) { hues = seq(15, 375, length = n + 1) hcl(h = hues, l = 65, c = 100)[1:n] }

Por ejemplo: 

 n = 4 cols = gg_color_hue(n) dev.new(width = 4, height = 4) plot(1:n, pch = 16, cex = 2, col = cols)

enter image description here

Este es el resultado de 

 library(scales) show_col(hue_pal()(4))

Ggplot de cuatro colores 

 show_col(hue_pal()(3))

Ggplot de tres colores

Estas respuestas son todas muy buenas, pero quería compartir otra cosa que descubrí en stackoverflow que es realmente bastante útil, aquí está el enlace directo

Básicamente, @DidzisElferts muestra cómo puedes obtener todos los colores, coordenadas, etc. que usa ggplot para construir un diagtwig que creaste. ¡Muy agradable! 

 p <- ggplot(mpg,aes(x=class,fill=class)) + geom_bar() ggplot_build(p)$data [[1]] fill y count x ndensity ncount density PANEL group ymin ymax xmin xmax 1 #F8766D 5 5 1 1 1 1.111111 1 1 0 5 0.55 1.45 2 #C49A00 47 47 2 1 1 1.111111 1 2 0 47 1.55 2.45 3 #53B400 41 41 3 1 1 1.111111 1 3 0 41 2.55 3.45 4 #00C094 11 11 4 1 1 1.111111 1 4 0 11 3.55 4.45 5 #00B6EB 33 33 5 1 1 1.111111 1 5 0 33 4.55 5.45 6 #A58AFF 35 35 6 1 1 1.111111 1 6 0 35 5.55 6.45 7 #FB61D7 62 62 7 1 1 1.111111 1 7 0 62 6.55 7.45

De la página 106 del libro ggplot2 de Hadley Wickham:

El esquema de color predeterminado, scale_colour_hue recoge tonos uniformemente espaciados alrededor de la rueda de color hcl.

Con un poco de ingeniería inversa puedes construir esta función: 

 ggplotColours <- function(n = 6, h = c(0, 360) + 15){ if ((diff(h) %% 360) < 1) h[2] <- h[2] - 360/n hcl(h = (seq(h[1], h[2], length = n)), c = 100, l = 65) }

Demostrando esto en barra de barras: 

 y <- 1:3 barplot(y, col = ggplotColours(n = 3))

enter image description here

Intereting Posts
No se puede imprimir en ggplot charts pdfAncho constante para geom_bar en caso de falta de datosHaz una leyenda rectangular, con filas y columnas etiquetadas, en grillaCómo sombrear una región bajo una curva usando ggplot2Ordenar gráfico de barras astackdas en ggplotCambio de formas utilizadas para scale_shape () en ggplot2¿Cómo agregar un subtítulo ggplot2 con diferentes tamaños y colores?Agregar leyenda al diagtwig de líneas ggplot2