(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)) #画火灾数曲线

(3)增加加图列 

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