Revisando el código de visweb()
, lamento decirte que no se puede. En el caso de los círculos solo puedes establecer un color único para todos ellos, mediante el parámetro circle.col
. Sin embargo, en la visualización tipo rectangular, si es posible, veamos un ejemplo dónde definimos 25 interacciones y creamos una paleta de azul a rojo de esa misma cantidad de colores
m <- matrix(1:25, ncol=5)
rownames(m) <- paste("V", 1:5)
colnames(m) <- rownames(m)
numero_colores <- length(table(m))
paleta <- colorRampPalette(c("blue", "red"))(numero_colores)
visweb(m,
text="interaction",
textcol = "white",
square="defined",
labsize=.6,
def.col = paleta
)
Resultado:
La "magia" la hace colorRampPalette()
un función base que nos retorna una función anónima que interpola colores discretos a una paleta continua de n
colores (en este caso, la cantidad de interacciones), en nuestro ejemplo, se interpolan los colores desde el rojo al azul, pero es posible hacerlo con múltiples colores, incluso rgb
.