• Print |
• E-mail  |
• Bookmark

goptions reset=all cback=white border rotate=landscape;


/* Use the following 3 lines to clear the graphics catalog */

proc greplay igout=work.gseg nofs;
  delete _all_;
run;

data yearly;
  input year yr_avg site $;
  datalines;
91 10 site_a
91 20 site_b
92 40 site_a
92 30 site_b
93 20 site_a
93 15 site_b
94 32 site_a
94 13 site_b
95 28 site_a
95 17 site_b
;

data monthly;
  input month mon_avg site $;
  datalines;
1 15 site_a
2 30 site_a
3 10 site_a
4 18 site_a
5 5 site_a
6 6 site_a
7 9 site_a
8 7 site_a
9 5 site_a
10 8 site_a
11 9 site_a
12 6 site_a
1 2 site_b
2 4 site_b
3 1 site_b
4 4 site_b
5 2 site_b
6 5 site_b
7 2 site_b
8 1 site_b
9 4 site_b
10 5 site_b
11 3 site_b
12 2 site_b
;


data anno1;
  length function color $8;
  retain function 'label' color 'black' when 'a' position '2' xsys '2' ysys '2';
  set yearly;
  midpoint=year; subgroup=site;
  text=left(put(yr_avg,2.));
run;

proc gchart data=yearly;
  vbar year / sumvar=yr_avg maxis=axis1  noframe 
                  legend=legend1 subgroup=site discrete raxis=axis2 anno=anno1;
  axis1 origin=(16,16)pct label=none length=40 pct offset=(3,3)pct;
  axis2 order=(0 to 100 by 20) length=75 pct  minor=none;
  legend1 position=(top left   inside) label=('Yearly') across=1;
  pattern1 value=solid color=cyan;
  pattern2 value=solid color=green;
run;


/* Remove the NOFRAME option if running prior to Version 7 of SAS */

proc gplot data=monthly;
  plot mon_avg*month=site  / legend=legend1 haxis=axis1 vaxis=axis2 noframe;
  axis1 origin=(55,16)pct label=none length=40 pct offset=(3,3)pct order=(1 to 12 by 1)
        value=('J' 'F' 'M' 'A' 'M' 'J' 'J' 'A' 'S' 'O' 'N' 'D') minor=none;
  axis2 order=(0 to 100 by 20) length=75 pct  value=none label=none
        minor=none major=none origin=(55,16)pct color=white;
  legend1 position=(top center inside)  label=('Monthly') across=1;
  symbol1 i=j v=none c=cyan line=1 w=2;
  symbol2 i=j v=none c=green line=1 w=2;
  title move=(40,95)pct h=1.2 f=swiss 'AVERAGES';
run;

goptions display;

proc greplay igout=work.gseg nofs tc=sashelp.templt template=whole;
  treplay 1:gchart 1:gplot;
run;
quit;

Operating System and Release Information