manually - Emular la paleta de colores predeterminada ggplot2

legend labels text ggplot

Question

¿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:

Answer 1

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))

Answer 2

Estas respuestas son todas muy buenas, pero quería compartir otra cosa que descubrí en 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 diagrama 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

Answer 3

Este es el resultado de

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

show_col(hue_pal()(3))

Answer 4

Se trata de tonalidades equidistantes alrededor de la rueda de color, 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)