¿Cómo se pueden mezclar 2 o más paletas de colores para mostrar un valor de color combinado?

Question

Estoy intentando crear un gráfico donde el color representa la combinación de varios valores. En el siguiente ejemplo, estoy aplicando valores crecientes para el rojo asociado con la coordenada xy valores crecientes para el azul en asociación con la coordenada y.

#required function 'val2col' from: http://www.menugget.blogspot.de/2011/09/converting-values-to-color-levels.html 

val2col<-function(z, zlim, col = heat.colors(12), breaks){ 
if(!missing(breaks)){ 
    if(length(breaks) != (length(col)+1)){stop("must have one more break than colour")} 
} 
if(missing(breaks) & !missing(zlim)){ 
    zlim[2] <- zlim[2]+c(zlim[2]-zlim[1])*(1E-3)#adds a bit to the range in both directions 
    zlim[1] <- zlim[1]-c(zlim[2]-zlim[1])*(1E-3) 
    breaks <- seq(zlim[1], zlim[2], length.out=(length(col)+1)) 
} 
if(missing(breaks) & missing(zlim)){ 
    zlim <- range(z, na.rm=TRUE) 
    zlim[2] <- zlim[2]+c(zlim[2]-zlim[1])*(1E-3)#adds a bit to the range in both directions 
    zlim[1] <- zlim[1]-c(zlim[2]-zlim[1])*(1E-3) 
    breaks <- seq(zlim[1], zlim[2], length.out=(length(col)+1)) 
} 
colorlevels <- col[((as.vector(z)-breaks[1])/(range(breaks)[2]-range(breaks)[1]))*(length(breaks)-1)+1] # assign colors to heights for each point 
colorlevels 
} 


#data 
x <- seq(100) 
y <- seq(100) 
grd <- expand.grid(x=x,y=y) 

#assign colors to grd levels 
pal1 <- colorRampPalette(c("white", rgb(1,0,0)), space = "rgb") 
col1 <- val2col(x, col=pal1(10)) 
pal2 <- colorRampPalette(c("white", rgb(0,0,1)), space = "rgb") 
col2 <- val2col(y, col=pal2(10)) 
col3 <- NA*seq(nrow(grd)) 
for(i in seq(nrow(grd))){ 
    xpos <- grd$x[i] 
    ypos <- grd$y[i] 
    coltmp <- (col2rgb(col1[xpos])/2) + (col2rgb(col2[ypos])/2) 
    col3[i] <- rgb(coltmp[1], coltmp[2], coltmp[3], maxColorValue = 255) 
} 

    #plot 
png("2_color_scales.png", width=6, height=4, units="in", res=200) 
layout(matrix(c(1,2,3), nrow=1, ncol=3), widths=c(4,1,1), heights=4, respect=T) 
par(mar=c(4,4,2,2)) 
plot(grd,col=col3, pch=19) 
par(mar=c(4,0,2,5)) 
image(x=1, y=x, z=t(as.matrix(x)), col=pal1(10), xaxt="n", yaxt="n", xlab="", ylab="") 
box() 
axis(4) 
mtext("x", side=4, line=3, cex=0.7) 
par(mar=c(4,0,2,5)) 
image(x=1, y=y, z=t(as.matrix(y)), col=pal2(10), xaxt="n", yaxt="n", xlab="", ylab="") 
box() 
axis(4) 
mtext("y", side=4, line=3, cex=0.7) 
dev.off() 

El resultado es técnicamente correcto en que cuando x = 1 e y = 10, la mezcla de colores "blanco" y "azul", respectivamente, devuelve el tono más claro de azul. Sin embargo, preferiría que esta posición se viera tan "azul" como el azul más oscuro de la barra de color y. Me imagino que esto requeriría que uno use transparencia para valores más bajos en lugar del color blanco. ¿Alguien tiene sugerencias sobre cómo se podría lograr esto? Agregar dos colores, incluida su transparencia, me supera ... ¿Pensé que uno podría usar el valor de transparencia como ponderación en el paso de mezcla?

Gracias por su ayuda.

Answer 1

Como estoy más familiarizado con ggplot, mostraré una solución usando ggplot. Esto tiene el beneficio adicional de que, dado que el código ggplot es muy simple, podemos centrar la discusión en el tema de la gestión del color, en lugar del código R.

1. de inicio mediante el uso de expand.grid para crear una trama de datos dat que contiene la cuadrícula de valores de entrada de rojo y azul.
2. Utilice la función rgb() para crear la combinación de colores y asígnelo a dat$mix
3. Parcela.

El código:

dat <- expand.grid(blue=seq(0, 100, by=10), red=seq(0, 100, by=10)) 
dat <- within(dat, mix <- rgb(green=0, red=red, blue=blue, maxColorValue=100)) 

library(ggplot2) 
ggplot(dat, aes(x=red, y=blue)) + 
    geom_tile(aes(fill=mix), color="white") + 
    scale_fill_identity() 

---

Usted notará que la escala de colores es diferente de lo que usted sugiere, pero posiblemente más intuitiva.

Al mezclar la luz, la ausencia de cualquier color produce negro, y la presencia de todos los colores produce blanco.

Esto está claramente indicado por la trama, que me resulta bastante intuitiva de interpretar.