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)