Добавление простой легенды в график в R

Я хотел бы создать очень простой сюжет. Я использую эти данные:

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")

Теперь я хотел бы добавить простую легенду, которая указывает, какой цвет является той переменной.

Я понимаю, что могу использовать команду legend(), но моя проблема в том, что я не знаю, как поместить цвета рядом с текстом в легенде.

Какая самая простая команда, которая сделает это?

Ответы

Ответ 1

Взгляните на ?legend и попробуйте следующее:

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