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
Obtener el ancho del área de trazado en ggplot2No dejes caer la cuenta cero: barra de barras esquivadaGuardar un gráfico con ggsave después de usar ggplot_build y ggplot_gtableggplot leyenda separada y ttwig¿Cómo dibujar barras astackdas en ggplot2 que muestran porcentajes basados ​​en el grupo?creando un “gráfico de radar” (también conocido como “ttwig de estrellas”, diagtwig de araña) usando ggplot2 en R¿Cómo puedo obtener una grilla “desbalanceada” de ggplots?Cómo agregar diferentes líneas para las facetas