数据展现04.pdfVIP

R语言进阶—数据展现 第4周 2012.11.25 DATAGURU专业数据分析网站 线图  使用cityrain.csv数据 rain-read.csv(cityrain.csv) plot(rain$Tokyo,type=b,lwd=2, xaxt =n,ylim=c(0,300),col=black, xlab =Month,ylab=Rainfall (mm), main=Monthly Rainfall in major cities) axis(1,at=1:length(rain$Month),labels=rain$Month) lines(rain$Berlin,col=red,type=b,lwd=2) lines(rain$NewYork,col=orange,type=b,lwd=2) lines(rain$London,col=purple,type=b,lwd=2) legend(topright,legend =c(Tokyo,Berlin,New York,London), lty=1,lwd=2,pch=21,col=c(black,red,orange,purple), ncol=2,bty=n,cex=0.8, text.col=c(black,red,orange,purple), inset=0.01) 2012.11.25 DATAGURU专业数据分析网站 2 线图 2012.11.25 DATAGURU专业数据分析网站 3 给线图增加legend （图例） legend(1,300,legend=c(Tokyo,B erlin,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)) 2012.11.25 DATAGURU专业数据分析网站 4 用线图描画时间序列—GDP的例子  注意，工作目录转向第四章数据 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) 2012.11.25 DATAGURU专业数据分析网站 5 代码（续） 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)