How to download and try this example
Usage: pl -gif vermonth.htm -maxrows 20000 or for postscript: pl -ps vermonth.htm -maxrows 20000 | lp Uses the data file vermonth.dat
#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: ##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