%let name=rad1;
filename odsout '.';

data failure;
input  Trial $ 1-8 cause $ 11-17 count;
datalines;
Series 1  Cause 1      9
Series 1  Cause 2      6
Series 1  Cause 3      4
Series 1  Cause 4     10 
Series 1  Cause 5      9
Series 2  Cause 1      4
Series 2  Cause 2      9
Series 2  Cause 3      8
Series 2  Cause 4      5
Series 2  Cause 5      6
run;

data failure; set failure;
length htmlvar $500;
htmlvar='title='||quote(
 'Trial: '|| trim(left(trial))
)
||' '||
 'href="rad2.htm"';
run;


 GOPTIONS DEVICE=gif;
 
 ODS LISTING CLOSE;
 ODS HTML path=odsout body="&name..htm" (title="Radar Chart") style=minimal;
 goptions noborder;

goptions gunit=pct htitle=6 ftitle="albany amt/bold" htext=4.25 ftext="albany amt/bold";

goptions xpixels=720 ypixels=600;

title "Radar Chart";
title2 "Displays changes in values relative to a center point";
proc gradar data=failure;
 chart cause / 
 freq=count
 overlay=trial
 ctext=gray
 cstars=(navy magenta)
 wstars= 2 2   /* width of lines */
 lstars= 1 1   /* line type of lines */
 html=htmlvar
 noframe
 des="" name="&name" ;  
run;

 quit;
 ODS HTML CLOSE;
 ODS LISTING;