bars2

How to download and try this example

Usage: pl -gif bars2.htm


#proc page
  backgroundcolor: teal
  color: white
  pagesize: 6 3
 
// use proc getdata to specify 4 values
#proc getdata
data:   90	12.5
	91	14.8
	92	2.4
	93	-3.5
	94	-5.5
	95	-1.2
	96	4.7
	97	7.6
	98	16.5
	99	10.4
	00	15.3
	01	5.2
 
// use proc areadef to set up scaled plotting area
#proc areadef
title: Emerging growth fund annual return (%)
rectangle: 1 1 5 2
// use date so 99->00->01 works properly
xscaletype: date yy
xrange: 89 02
xaxis.stubs: inc 1 year
xaxis.stubrange: 90 01
xaxis.stubdetails: size=6
xaxis.stubformat: 'yy
xaxis.axisline: none
xaxis.tics: none
xaxis.label: Calendar Year
xaxis.grid: color=orange style=1 dashscale=2 width=0.2
yrange: -15 30
 
// use proc bars to plot positive bars
#proc bars
locfield: 1
lenfield: 2
select: @@2 > 0
showvalues: yes
labeldetails: size=6
color: yelloworange
barwidth: 0.15
crossover: 0.0
outline: no
#saveas: B

// use proc bars again to plot negative bars in red
#proc bars
#clone B
select: @@2 < 0
color: red

// use proc line to draw line at Y=0
#proc line
notation: scaled
points: 89 0   02 0