equivalente transparente del color dado

Question

He tenido esto algunas veces, así que aquí va: estoy haciendo algunos trazados que contienen curvas con estimaciones de un parámetro dado un parámetro de ajuste.

Normalmente, también tengo SD para cada valor estimado, por lo que podría mostrar barras de error alrededor de cada uno de ellos.

Sin embargo, no me gustan las barras de error, y preferiría una versión suavizada de la misma. Esto no es un problema en sí mismo (es decir, sé cómo hacer esto). Sin embargo, mi trama contiene varias de estas curvas similares, cada una en su propio color. Así que me gustaría agregar la 'región de error suavizada' a cada curva en un color que coincida con el color de la curva en sí. Por supuesto, me gustaría hacer esto de forma transparente, por lo que todavía puedo ver las otras curvas a través de la "región de error".

Entonces, mi pregunta es: dado un color (especificado por un número, un nombre o un valor rgb --- tenga en cuenta que los dos primeros plantean un problema adicional, pero esto ocurre con bastante frecuencia, ya que las funciones básicas de trazado tomar estos como valores de color válidos), ¿cómo puedo encontrar el color coincidente que tiene el mismo rgb pero un nivel alfa diferente (dado) (transparencia). Me gustaría una función como:

makeTransparent<-function(someColor, alpha=100) 
{ 
    newColor<-someColor + alpha #I wish 
    return(newColor) 
} 

Esto debería funcionar para cosas como:

makeTransparent(2) 
makeTransparent("red") 
makeTransparent(rgb(0,0,1)) 

Editar odio cuando me olvido de algo obvio, pero @themel me señaló a él (gracias de nuevo) Aquí es una solución completa (nota: los trabajos vectorizados, por lo que puede pasar más de un color, y sólo una alfa se admite en este momento sin embargo):

#note: always pass alpha on the 0-255 scale 
makeTransparent<-function(someColor, alpha=100) 
{ 
    newColor<-col2rgb(someColor) 
    apply(newColor, 2, function(curcoldata){rgb(red=curcoldata[1], green=curcoldata[2], 
    blue=curcoldata[3],alpha=alpha, maxColorValue=255)}) 
} 

Answer 1

¿Ha tenido un vistazo a ?rgb?

Uso:

RGB (rojo, verde, azul, alfa, nombres = NULL, maxColorValue = 1)

Un valor de transparencia alfa también se puede especificar (como una opacidad, así ' 0 'significa completamente transparente y' max 'significa opaco). Si alpha 'no está especificado, se genera un color opaco.

El parámetro alpha es para especificar la transparencia. col2rgb divide los colores R especificados de otras formas en RGB para que pueda alimentarlos al rgb.

Answer 2

Creo que es más común especificar alpha en [0,1]. Esta función hace que, además de aceptar varios colores como argumentos:

makeTransparent = function(..., alpha=0.5) { 

    if(alpha<0 | alpha>1) stop("alpha must be between 0 and 1") 

    alpha = floor(255*alpha) 
    newColor = col2rgb(col=unlist(list(...)), alpha=FALSE) 

    .makeTransparent = function(col, alpha) { 
    rgb(red=col[1], green=col[2], blue=col[3], alpha=alpha, maxColorValue=255) 
    } 

    newColor = apply(newColor, 2, .makeTransparent, alpha=alpha) 

    return(newColor) 

} 

Y, a prueba:

makeTransparent(2, 4) 
[1] "#FF00007F" "#0000FF7F" 
makeTransparent("red", "blue") 
[1] "#FF00007F" "#0000FF7F" 
makeTransparent(rgb(1,0,0), rgb(0,0,1)) 
[1] "#FF00007F" "#0000FF7F" 

makeTransparent("red", "blue", alpha=0.8) 
[1] "#FF0000CC" "#0000FFCC" 

Answer 3

Hay una función adjustcolor en grDevices paquete, que funciona como este en su caso:

adjustcolor("red", alpha.f = 0.2)