Sample 24941: Display vertical bar chart and plot side by side
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;

This sample program uses the GREPLAY procedure to combine a GCHART and GPLOT side by side.
| Type: | Sample |
| Topic: | SAS Reference ==> Procedures ==> GREPLAY
|
| Date Modified: | 2005-09-01 03:03:07 |
| Date Created: | 2004-11-11 11:08:04 |
Operating System and Release Information
| SAS System | SAS/GRAPH | All | n/a | n/a |