# propbars1

How to download and try this example

    Usage: pl -gif propbars1.htm
    Source: Artemis Simopoulos, "The Omega Plan"
    (Values interpreted from another graph and may not be exact)

    //  specify the data using proc getdata
    // Each value is an individual percentage.

    #proc page
      landscape: yes

    #proc getdata
    //      oil     lin    alph    mono    sat
    data:	Canola 	 22	10	63	5
    	Flaxseed 17	46	29	8
    	Olive	 6 	2	80	12
    	Walnut	 62	8	20	10
    	Coconut	 3	0	20	77
    	Corn	 62	1	23	14
    	Safflower 78	0	12	10

    //  define plotting area using proc areadef
    #proc areadef
      title: Fats content of various oils
      rectangle: 1 1 4 2.7
      xrange: 0 100
      yrange: 0 8

    //  do y axis stubs (oil names) using proc yaxis
    #proc yaxis
      stubs: datafields 1
      grid: color=powderblue
      axisline: none
      tics: no

    //  do x axis stubs (percents) using proc xaxis
    #proc xaxis
      stubs: inc 20
      stubformat: %3.0f%%

    //  do light green bars using proc bars
    #proc bars
      horizontalbars: yes
      barwidth: 0.13
      lenfield: 2
      color: rgb(.6,.85,.8)
      outline: no
      legendlabel: Linolenic (omega-6)
      #saveas: B

    //  do dark green bars
    // Use stackfields to position bars beyond the first set of bars
    #proc bars
      #clone B
      lenfield: 3
      stackfields: 2
      legendlabel: Alpha-Linolenic (omega-3)
      color: teal

    //  do pink bars
    // Use stackfields to position bars beyond the first two sets of bars
    #proc bars
      #clone B
      lenfield: 4
      stackfields: 2 3
      legendlabel: Monounsaturated fats
      color: pink

    //  do red bars
    // Use stackfields to position bars beyond the first three sets of bars
    #proc bars
      #clone B
      lenfield: 5
      stackfields: 2 3 4
      legendlabel: Saturated fats
      color: red

    //  do legend (1st column) using proc legend
    // the noclear attribute must be specified otherwise the entries are removed
    // we need to keep them for the 2nd invocation, below..
    #proc legend
      location: min+0.2 min-0.3
      noclear: yes
      specifyorder: Lin
    	 	alpha

    //  do legend (2nd column) using proc legend
    #proc legend
      location: min+2.4 min-0.3
      specifyorder: Mono
    	 	Satu