Según tengo entendido, la búsqueda de colores distintivos está relacionada con la búsqueda eficiente desde un cubo unitario, donde 3 dimensiones del cubo son tres vectores a lo largo de los ejes rojo, verde y azul. Esto se puede simplificar para buscar en un cilindro (analogía HSV), donde se fija Saturación (S) y Valor (V) y se encuentran valores de Hue aleatorios. Funciona en muchos casos, y mira esto aquí:
https://martin.ankerl.com/2009/12/09/how-to-create-random-colors-programmatic/
En R,
get_distinct_hues <- function(ncolor,s=0.5,v=0.95,seed=40) {
golden_ratio_conjugate <- 0.618033988749895
set.seed(seed)
h <- runif(1)
H <- vector("numeric",ncolor)
for(i in seq_len(ncolor)) {
h <- (h + golden_ratio_conjugate) %% 1
H[i] <- h
}
hsv(H,s=s,v=v)
}
Una forma alternativa es usar el paquete R "uniformemente"
https://cran.r-project.org/web/packages/uniformly/index.html
y esta función simple puede generar colores distintivos:
get_random_distinct_colors <- function(ncolor,seed = 100) {
require(uniformly)
set.seed(seed)
rgb_mat <- runif_in_cube(n=ncolor,d=3,O=rep(0.5,3),r=0.5)
rgb(r=rgb_mat[,1],g=rgb_mat[,2],b=rgb_mat[,3])
}
Se puede pensar en una función un poco más complicada mediante la búsqueda de cuadrícula:
get_random_grid_colors <- function(ncolor,seed = 100) {
require(uniformly)
set.seed(seed)
ngrid <- ceiling(ncolor^(1/3))
x <- seq(0,1,length=ngrid+1)[1:ngrid]
dx <- (x[2] - x[1])/2
x <- x + dx
origins <- expand.grid(x,x,x)
nbox <- nrow(origins)
RGB <- vector("numeric",nbox)
for(i in seq_len(nbox)) {
rgb <- runif_in_cube(n=1,d=3,O=as.numeric(origins[i,]),r=dx)
RGB[i] <- rgb(rgb[1,1],rgb[1,2],rgb[1,3])
}
index <- sample(seq(1,nbox),ncolor)
RGB[index]
}
verifique estas funciones por:
ncolor <- 20
barplot(rep(1,ncolor),col=get_distinct_hues(ncolor)) # approach 1
barplot(rep(1,ncolor),col=get_random_distinct_colors(ncolor)) # approach 2
barplot(rep(1,ncolor),col=get_random_grid_colors(ncolor)) # approach 3
Sin embargo, tenga en cuenta que definir una paleta distinta con colores perceptibles humanos no es simple. ¿Cuál de los enfoques anteriores genera un conjunto diverso de colores aún no se ha probado?
