/* You must specify a path for this variable */ %let path=path-to-your-web-server; goptions reset=all dev=java; ods html path="&path" file='javabar.html'; /* create the FITNESS data set */ data fitness; input age sex $ heart exer aero; datalines; 28 M 86 2 36.6 41 M 76 3 26.7 30 M 78 2 33.8 39 F 90 1 13.6 28 M 96 1 33. 26 M 74 2 42.7 . F 66 4 36.1 48 F 72 2 22.6 31 M 60 3 44.1 28 F 84 2 22.1 33 F 56 4 21.3 37 F 78 2 30.3 46 M 84 1 34.2 23 M 72 2 38.1 25 F 88 1 32.0 37 F 72 2 43.7 42 M 60 3 36.7 44 F 78 3 21.6 . F 70 1 22.8 25 F 60 3 36.1 24 F 74 2 29.9 29 F 66 4 38.9 27 M 62 4 44.0 24 M 72 3 44.2 36 F 80 1 26.2 24 M 82 2 18.7 23 M 54 3 70.6 28 F 76 1 23.8 30 F 66 2 28.9 25 M 54 3 41.3 48 F 72 2 28.9 23 F 68 1 18.9 22 F 78 2 39.0 23 F 66 3 36.1 46 F 54 3 28.9 31 F 84 1 21.6 45 M 60 2 47.8 27 M 90 2 43.1 26 M 66 2 28.9 26 F 84 2 . 24 M 72 3 50.1 32 F 72 1 15.7 29 M 54 3 44.8 48 F 66 2 28.9 36 F 66 2 33.2 ; /* define title */ title1 'Average Resting Heart Rate by Age'; /* modify axes */ axis1 label=('Heart Rate' j=c 'Error Bar Confidence Limits: 95%') minor=(number=1); axis2 label=('Age' j=r 'Group'); /* produce horizontal bar chart */ proc gchart data=fitness; hbar age / type=mean freqlabel='Number in Group' meanlabel='Mean Heart Rate' sumvar=heart errorbar=bars noframe clm=95 midpoints=(20 30 40 50) raxis=axis1 maxis=axis2 coutline=black name='errorbar'; run; data work.revhub; input HUB $ 1-13 SOURCE $ 18-26 TYPE $ 31-38 REVENUE; format REVENUE dollar14.2; cards; Frankfurt Freight Direct 1464938 Frankfurt Freight Indirect 198942 Frankfurt Freight Other 144685 Frankfurt Other Direct 111193 Frankfurt Other Indirect 12057 Frankfurt Other Other 10717 Frankfurt Passenger Direct 3460389 Frankfurt Passenger Indirect 421999 Frankfurt Passenger Other 337599 Frankfurt Service Direct 444773 Frankfurt Service Indirect 58946 Frankfurt Service Other 32152 London Freight Direct 2066789 London Freight Indirect 429463 London Freight Other 187890 London Other Direct 257027 London Other Indirect 45549 London Other Other 22775 London Passenger Direct 3743157 London Passenger Indirect 719838 London Passenger Other 335924 London Service Direct 257027 London Service Indirect 52056 London Service Other 16268 New York Freight Direct 2636487 New York Freight Indirect 353675 New York Freight Other 225066 New York Other Direct 450132 New York Other Indirect 48228 New York Other Other 37511 New York Passenger Direct 7449951 New York Passenger Indirect 897584 New York Passenger Other 628309 New York Service Direct 562665 New York Service Indirect 73682 New York Service Other 33492 San Francisco Freight Direct 2092769 San Francisco Freight Indirect 439223 San Francisco Freight Other 51673 San Francisco Other Direct 214444 San Francisco Other Indirect 38755 San Francisco Other Other 5167 San Francisco Passenger Direct 4340558 San Francisco Passenger Indirect 868112 San Francisco Passenger Other 217028 San Francisco Service Direct 285926 San Francisco Service Indirect 58563 San Francisco Service Other 0 Sydney Freight Direct 873279 Sydney Freight Indirect 212722 Sydney Freight Other 33588 Sydney Other Direct 149278 Sydney Other Indirect 31722 Sydney Other Other 5598 Sydney Passenger Direct 3537899 Sydney Passenger Indirect 806104 Sydney Passenger Other 134351 Sydney Service Direct 348316 Sydney Service Indirect 82725 Sydney Service Other 4354 Tokyo Freight Direct 363627 Tokyo Freight Indirect 100476 Tokyo Freight Other 14354 Tokyo Other Direct 149278 Tokyo Other Indirect 36363 Tokyo Other Other 5741 Tokyo Passenger Direct 2984133 Tokyo Passenger Indirect 775100 Tokyo Passenger Other 116265 Tokyo Service Direct 186598 Tokyo Service Indirect 50238 Tokyo Service Other 2392 ; run; title1 'Total Revenues'; proc gchart; vbar source / sumvar=revenue sum ; run; title1 'Revenue Percentages'; vbar source / sumvar=revenue inside=pct ; run; quit; ods html close;