R Graphics Il 图例一使用坐标定位 legend(1,300,legend=c("Tokyo","Berlin","New York","London"). Ity=1,lwd=2,pch=21,col-c("black","red","orange","purple"), horiz=TRUE,bty="n",bg="yellow",cex=1, text.col=c("black","red","orange","purple")) Monthly Rainfall in major cities 导 。Toky0 Berlin New York-London 虽 量 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
legend(1,300,legend=c("Tokyo","Berlin","New York","London"), lty=1,lwd=2,pch=21,col=c("black","red","orange","purple"), horiz=TRUE,bty="n",bg="yellow",cex=1, text.col=c("black","red","orange","purple")) R Graphics II 图例－使用坐标定位
R Graphics Il 图例-边界标记 gdp<-read.table("gdp_long.txt",header=T) 0 C library(RColorBrewer) pal<-brewer.pal(5,"Set1") 7 par(mar=par()Smar+c(0,0,0,2),bty="I") plot(Canada~Year,data=gdp,type="I",lwd=2,Ity=1,ylim=c(30,60),col=pal[1],main="Percentage change in GDP",ylab=T) mtext(side=4,at=gdp$Canada[length(gdp$Canada)],text="Canada",col=pal[1],line=0.3,las=2) side lines(gdpSFrance~gdpSYear,col=pal[2],Iwd=2) 1,2,3,4 mtext(side=4,at=gdpSFrance[length(gdpSFrance)],text="France",col=pal[2],line=0.3,las=2) lines(gdp$Germany~gdp$Year,col=pal[3],lwd=2) mtext(side=4,at=gdp$Germany[length(gdp$Germany)],text="Germany",col=pal[3],line=0.3,las=2) lines(gdp$Britain~gdp$Year,col=pal[4],lwd=2) mtext(side=4,at=gdp$Britain[length(gdp$Britain)],text="Britain",col=pal[4],line=0.3,las=2) lines(gdpSUSA~gdp$Year,col=pal[5],lwd=2) mtext(side=4,at=gdpSUSA[length(gdpSUSA)]-2,text="USA",col=pal[5],line=0.3,las=2)
gdp<-read.table("gdp_long.txt",header=T) library(RColorBrewer) pal<-brewer.pal(5,"Set1") par(mar=par()$mar+c(0,0,0,2),bty="l") plot(Canada~Year,data=gdp,type="l",lwd=2,lty=1,ylim=c(30,60),col=pal[1],main="Percentage change in GDP",ylab="") mtext(side=4,at=gdp$Canada[length(gdp$Canada)],text="Canada",col=pal[1],line=0.3,las=2) lines(gdp$France~gdp$Year,col=pal[2],lwd=2) mtext(side=4,at=gdp$France[length(gdp$France)],text="France",col=pal[2],line=0.3,las=2) lines(gdp$Germany~gdp$Year,col=pal[3],lwd=2) mtext(side=4,at=gdp$Germany[length(gdp$Germany)],text="Germany",col=pal[3],line=0.3,las=2) lines(gdp$Britain~gdp$Year,col=pal[4],lwd=2) mtext(side=4,at=gdp$Britain[length(gdp$Britain)],text="Britain",col=pal[4],line=0.3,las=2) lines(gdp$USA~gdp$Year,col=pal[5],lwd=2) mtext(side=4,at=gdp$USA[length(gdp$USA)]-2,text="USA",col=pal[5],line=0.3,las=2) • o • l • 7 • c • u • ] • side • 1,2,3,4 R Graphics II 图例－边界标记
R Graphics Il 图例-边界标记 Percentage change in GDP 8 8 France Britain 8 Germany 导 Canada 导 USA 8 8 1995 2000 2005 2010 Year
R Graphics II 图例－边界标记