Aggiunta di una semplice legenda per la stampa in R

Question

Vorrei creare una trama molto semplice. Sto usando this data:

a <- read.table("https://dl.dropbox.com/u/22681355/a.csv", sep=',', header=TRUE) 

plot(a$X25, type="l",col="red", ylim=c(0,100)) 
lines(a$X25.1, type="l", col="blue") 
lines(a$X25.2, type="l", col="green") 
lines(a$X25.3, type="l", col="brown") 

Ora vorrei aggiungere una semplice leggenda che indica che il colore è che variabile.

Capisco che posso utilizzare il comando legend(), ma il mio problema è che non so come mettere i colori accanto al testo nella legenda.

Qual è il comando più semplice che farebbe questo?

Answer 1

Date un'occhiata a ?legend e provare questo:

legend('topright', names(a)[-1] , 
    lty=1, col=c('red', 'blue', 'green',' brown'), bty='n', cex=.75)