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