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)