# vermonth

How to download and try this example

    Usage: pl -gif vermonth.htm
    or for postscript: pl -ps vermonth.htm | lp

    Uses the data file vermonth.dat

    #declare TODATE
    #set TODATE = 9903

    // Do a page title using proc page
    #proc page
      pagesize: 8.5 11
      #if @DEVICE in gif,png
        scale: 0.5
      #endif
      title: Number of form pages
    	 verified per month
    	 November 30, 1999

    // Set up plotting area using proc areadef
    #proc areadef
      rectangle: 1.5 3.5 7 9
      xscaletype: date yymm
      xrange: 9704 0001
      yrange: 0 1800
      xaxis.stubs: inc 1 month
      xaxis.stubformat: M
      xaxis.autoyears: yes
      yaxis.stubs: inc 100
      yaxis.label: Number of pages
      yaxis.labeldetails: adjust=-0.3,0

    // Read and process data file using proc getdata
    #proc getdata
      file: vermonth.dat
      // the following filter strips the day portion off of the
      // YYMMDD dates in verminth.dat
      filter:
    	##declare YYMM
    	##set YYMM = $substring(@@2,1,4)
    	@@1 @@YYMM

    // Do a 2-D frequency distribution on user x yymm using proc tabulate
    #proc tabulate
      axis1: x
      datafield1: 2
      datafield2: 1
      valuelist2: steve,lisa,rob,takisha
      savetable: vermonth.tab

    // Now, using the 2-D distribution data, draw bars for steve using proc bars
    #proc bars
      lenfield: 2
      locfield: 1
      color: 0.75
      outline: no
      barsrange: 9704 @TODATE
      legendlabel: Steve
      barwidth: 0.12
      outline: yes
      #saveas B

    // draw bars for lisa, stacking them above steve, using proc bars
    #proc bars
      #clone: B
      lenfield: 3
      color: white
      stackfields: 2
      legendlabel: Lisa

    // draw bars for rob, stacking them above lisa and steve, using proc bars
    #proc bars
      #clone: B
      lenfield: 4
      color: 0.4
      stackfields: 2 3
      legendlabel: Rob

    // draw bars for takisha, stacking them above the others, using proc bars
    #proc bars
      #clone: B
      lenfield: 5
      color: 0.9
      stackfields: 2 3 4
      legendlabel: Takisha

    // compute and draw a 4 month average using proc curvefit
    #proc curvefit
      xfield: 1
      yfield: 6
      linerange: 9704 @TODATE
      legendlabel: 4 month average

    // render the legend containing the labels defined above, using proc legend
    #proc legend
      location: min+1 max
      reverseorder: yes
      seglen: 0.3