/**********************************************************************/


data testdata;
input class $8. score;
cards;
MATH    70
MATH    70
MATH    80
MATH    85
MATH    85
MATH    85
MATH    90
MATH    95
MATH    95
MATH    97
ENGLISH 70
ENGLISH 80
ENGLISH 80
ENGLISH 80
ENGLISH 80
ENGLISH 90
ENGLISH 90
ENGLISH 90
ENGLISH 90
ENGLISH 95
SCIENCE 70
SCIENCE 70
SCIENCE 75
SCIENCE 75
SCIENCE 80
SCIENCE 80
SCIENCE 80
SCIENCE 85
SCIENCE 85
SCIENCE 90
HISTORY 70
HISTORY 70
HISTORY 80
HISTORY 85
HISTORY 85
HISTORY 85
HISTORY 85
HISTORY 88
HISTORY 90
HISTORY 100
;
run;

proc freq data=testdata noprint;
   tables class*score / out=freqdata;
run;

data annodata;
   drop percent;
   retain function 'label' xsys ysys '2' style 'swissl' size 1 color 
      'black';
   set freqdata;
   xc=class; 
   y=score; 
   text=put(count,2.);
run;

proc print data=annodata;
run;

symbol1 v=none;

axis1 offset=(5,5)pct;

title1 'Class Test Scores';

proc gplot data=freqdata;
   plot score*class / anno=annodata haxis=axis1 vaxis=axis1;
run;
quit;


/**********************************************************************/