data waste;
input material $ 1-23 weight 25-28 percent 30-33;
datalines;
Paper,paperboard        86.7 37.4
Yard trimmings          27.7 11.9
Food scraps             25.9 11.2
Plastics                24.7 10.7
Metals                  18.0 7.8
Rubber,leather,textiles 15.8 6.8
Glass                   12.8 5.5
Wood                    12.7 5.5
Other                    7.5 3.2
;
goptions reset=global gunit=pct border cback=white
         colors=(black blue green red) ftitle=swissb
         ftext=swiss htitle=4 htext=3;

title1 'Principle Sources of Waste: 2000';
title2 font=swissb h=2.5 '(Amounts are percent of total)';
footnote h=2 j=r 'G. Andrus ';


pattern1 color=black;      
pattern2 color=blue;        
pattern3 color=green;      
pattern4 color=gray;        
pattern5 color=lipk;        
pattern6 color=lime;       
pattern7 color=cyan;        
pattern8 color=red;         
pattern9 color=orange;

legend1 label=none
        position=(left middle)
        offset=(4,)
        across=1
        order=('Paper,paperboard' 'Yard trimmings' 'Food scraps'
               'Plastics' 'Metals' 'Rubber,leather,textiles'
               'Glass' 'Wood' 'Other')
        value=(color=black)
        shape=bar(4,4);

proc gchart data=waste;
   pie material / sumvar=percent
                  descending
                  legend=legend1
                  value=inside
                  ctext=white
                  coutline=black
                  noheading;
run;