Aggiunta di una legenda di colore a un'immagine

Question

Ho una matrice che ho fatto un'immagine dell'uso di image(matrix). C'è via per aggiungere una legenda dei colori alla mia immagine come faccio quando aggiungo una legenda alla trama?

Answer 1

image in R è una funzione di tracciamento abbastanza semplice. Potresti voler dare un'occhiata a filled.contour se vuoi una funzione che assegni automaticamente lo spazio per una legenda. Oppure provate questo:

library(lattice) 
levelplot(matrix) 

Answer 2

o la leggenda potrebbe essere fornita in questo modo:

 legend(grconvertX(0.5, "device"), grconvertY(1, "device"), 
    c("0",".5","1"), fill = colMap[c(1, 10, 20)], xpd = NA) 

dove grconvertX() e grconvertY() e XPD si assicura la leggenda è fuori della regione tramando. Un esempio plausibile potrebbe essere:

nsamples <- 20 
    mat <- rnorm(nsamples, .5, .15) 
    dim(mat) <- c(4, 5) 
    colMap <- colorRampPalette(c("red","white","blue"))(nsamples) 
    image(1:4, 1:5, mat, col = colMap, ylab="", xlab="") 
    legend(grconvertX(0.5, "device"), grconvertY(1, "device"), 
    c("0",".5","1"), fill = colMap[c(1, 10, 20)], xpd = NA) 

P.S .: So che è una vecchia richiesta ed è risolto. Comunque stavo cercando una risposta simile e non riuscivo a trovarlo. Dato che mi sono preoccupato di risolvere questo problema, ho pensato che forse anche qualcun altro potrebbe trarne beneficio.

Answer 3

Dal pacchetto fields, è possibile provare image.plot. Questa funzione è basata sul normale image, ma fornisce una legenda di figura.

library(fields) 
x = 1:10 
y = 1:15 
z = outer(x,y,"+") 
image.plot(x, y, z)