本文以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)
