플롯 할 간단한 범례 추가 R

Question

아주 간단한 플롯을 만들고 싶습니다. 나는 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") 

지금 내가하는 변수 인 컬러를 나타내는 간단한 범례를 추가하고 싶습니다.

나는 legend() 명령을 사용할 수 있다고 알고 있지만 내 문제는 범례의 텍스트 옆에 색상을 배치하는 방법을 모르겠다는 것입니다.

이 작업을 수행하는 가장 간단한 명령은 무엇입니까?

Answer 1

는 ?legend에서 봐, 그리고이 시도 :

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