zoukankan      html  css  js  c++  java
  • 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)

     

  • 相关阅读:
    SuperSocket 2.0 发布第一个预览版, 另寻找Yang Fan哥哥
    使用LogMaster4Net实现应用程序日志的集中管理
    博客终结
    我的第一个Socket程序-SuperSocket使用入门(三)
    树莓派 HC-SRO4超声波测距模块的使用
    树莓派 LED+蜂鸣+声音传感器+红外模块组合打造声控/红外控制LED
    Python Django 开发 4 ORM
    Raspberry Pi --操作LED
    Python Django 开发 3 数据库CURD
    Python Django 开发 2 数据库
  • 原文地址:https://www.cnblogs.com/cloudml/p/4207043.html
Copyright © 2011-2022 走看看