R语言画曲线图

本文以1950年到2010年期间我国的火灾统计数据为例,数据如下所示:

技术分享

(0)加载数据

data<-read.csv("E:\\MyDocument\\p\\Data\\1950~2010火灾情况.csv") 

x=t(data[1]) 

y=t(data[2]) 

z=t(data[3])

w=t(data[4])

maxy=max(y) 

maxz=max(z) 

maxw=max(w) 

(1)将火灾数、直接损失、死伤人数,分别按年份作图

 plot(x,y,type="o",xlab="年份",ylab="火灾(起)",ylim=c(0,maxy),col="red",main="1950年到2010年火灾年度统计",pch=c(15))

技术分享

plot(x,z,type="o",xlab="年份",ylab="经济损失(万元)",ylim=c(0,maxz),col="blue",main="1950年到2010年火灾经济损失年度统计",pch=c(16)) 

 技术分享

plot(x,w,type="o",xlab="年份",ylab="死伤人数",ylim=c(0,maxw),col="green",main="1950年到2010年火灾死伤人数年度统计",pch=c(17))

技术分享 

注:x,y为图中的x轴和y轴,type设置图形中数据的显示类型,常见的有:

      type="p " 在图形中数据显示为点;

      type="l " 在图形中数据显示为线;

      type="b" 在图形中数据显示为点和连接线;

      type="o" 在图形中数据点覆盖在线上;

      type="h" 在图形中数据显示为从点到x轴的垂直线;

      type="s" 在图形中数据显示为阶梯图;

      type="n"在图形中数据不显示;

   xlab和ylab分别表示x轴和y轴的说明,ylim为控制y轴的范围,col为线条的颜色,main为图的主标题,pch为数据点的显示符号,可取1到25的整数以及“”中的符号:

技术分享 

(2)将火灾数、直接损失、死伤人数画在一个图里

> plot(x,y,type="o",xlab="年份",ylab="",ylim=c(0,maxy),col="red",main="1950年到2010年火灾年度统计",pch=c(15)) #画火灾数曲线

 

> lines(x,z,type="o",col="blue",pch=c(16)) #追加经济损失曲线
> lines(x,w,type="o",col="green",pch=c(17)) #追加死伤人数曲线

技术分享 

(3)增加加图列 

 legend("topleft",c("火灾(起)","经济损失(万元)","死伤人数"),col=c("red","blue","green"),pch=15:17)

技术分享 

 

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。