Rimozione linee all'interno della legenda filled.contour

Question

Potrei mancare qualcosa di semplice qui ... Non riesco comunque a trovare le righe che attraversano la leggenda differenziando i diversi colori; segue sul dall'esempio vulcano topografia ?filled.contour, ho questo:

x <- 10*1:nrow(volcano) 
y <- 10*1:ncol(volcano) 

filled.contour(x, y, volcano, color = terrain.colors, 
    plot.title = title(main = "The Topography of Maunga Whau", 
    xlab = "Meters North", ylab = "Meters West"), 
    plot.axes = { axis(1, seq(100, 800, by = 100)) 
       axis(2, seq(100, 600, by = 100)) }, 
    key.title = title(main="Height\n(meters)"), 
    key.axes = axis(2, 
      labels=FALSE, 
      at=FALSE, 
      lty=NULL, 
      tick=FALSE, 
      col="white", 
      col.ticks=NULL) 
) 
mtext(paste("filled.contour(.) from", R.version.string),side = 1, line = 4, adj = 1, cex = .66) 

sono riuscito a rimuovere tutte le etichette e tick-segni dall'asse, ma ancora esistono le linee (per inciso, la effetto che sto cercando di realizzare è (credo) il default in Matlab)

Answer 1

Se si esamina il codice per filled.contour vedrete questa linea:

rect(0, levels[-length(levels)], 1, levels[-1L], col = col) 

che disegna il rettangolo chiave di colore. È vettorializzato, quindi sta disegnando ciascuna delle singole caselle di colore. La funzione rect accetta un argomento border, che se si imposta su NA ometterà i bordi interni dei rettangoli. Quindi creare la propria versione della funzione e modificare questa linea per:

rect(0, levels[-length(levels)], 1, levels[-1L], col = col, border = NA) 

o renderlo un argomento, piuttosto che codifica duro. Quando faccio questo, ottengo il seguente grafico:

Answer 2

Non c'è nemmeno bisogno di cambiare il hardcode filled.contour. Apparentemente l'argomento border nella funzione rect si basa su par("fg"). Basta impostare par(fg = NA) per rimuovere quelle linee nere.