legend()函數

> plot(rain$Tokyo,type="l",col="red", 
+ ylim=c(0,300), 
+ main="Monthly Rainfall in major cities", 
+ xlab="Month of Year", 
+ ylab="Rainfall (mm)", 
+ lwd=2) 
> lines(rain$NewYork,type="l",col="blue",lwd=2) 
> lines(rain$London,type="l",col="green",lwd=2) 
> lines(rain$Berlin,type="l",col="orange",lwd=2) 

1.第一種樣式

> legend("topright",                                    #圖例位置為右上角
+ legend=c("Tokyo","NewYork","London","Berlin"),        #圖例內容
+ col=c("red","blue","green","orange"),                 #圖例顏色
+ lty=1,lwd=2)                                          #圖例大小

2.第二種樣式

> legend("top",                                        #圖例位置為上方
+ legend=c("Tokyo","NewYork","London","Berlin"), 
+ ncol=4, 
+ cex=0.8, 
+ bty="n", 
+ col=c("red","blue","green","orange"), 
+ lty=1,lwd=2) 

R語言-增加圖例