ods listing close;

goptions reset=all dev=activex  colors=(cxE9C806 silver cx957937);
ods html file="areabar.html" ;

data medals;
 input country $15. type $ medals  Athletes;
 label medals = 'Number of Medals';
 label athletes  = 'Number of Athletes';
 label country = 'Country';
 label type = 'Medal Type';
datalines;
Germany         1 14  512
Germany         2 16  0
Germany         3 18  0
Japan           1 16  331
Japan           2  9  0
Japan           3 12  0
United States   1 35  614
United States   2 39  0
United States   3 29  0
China           1 32  407
China           2 17  0
China           3 14  0
Australia       1 17  482
Australia       2 16  0
Australia       3 16  0
Russia          1 27  500
Russia          2 27  0
Russia          3 38  0
;
run;

 proc format;
   value $ color '1' = '1 - Gold'
                 '2' = '2 - Silver'
                 '3' = '3 - Bronze';
 run;

title 'Top 6 Medal count for 2004 Athens SUMMER Olympics';
title2 'Data found from http://www.athens2004.com/';

PROC gareabar data=medals;
  vbar country * athletes /
    sumvar=medals subgroup=type
    discrete respstat=pct;

format type  $color.;                           
run;

quit;
ods html close;
ods listing;
ods listing close;