%let gpath='C:\';
%let dpi=150;

ods html close;

/*--Create data by Treatment and Percentile--*/
data Study;
  input Id Trt $ Study $ Week;
  label risk='Risk';

  if Study eq 'Study-1'  then do;
    if trt eq 'A' then Risk=2+ranuni(2);
	else Risk = 2.25+ranuni(2);
  end; 
  else if Study eq 'Study-2'  then do;;
    if trt eq 'A' then Risk=2.75+ranuni(2);
	else Risk = 3+ranuni(2);
  end; 
  else do;;
    if trt eq 'A' then Risk=4+ranuni(2);
	else Risk = 4.25+ranuni(2);
  end; 

  datalines;
1 Drug-A  Study-1 1
1 Drug-A  Study-1 2
1 Drug-A  Study-1 3
1 Drug-A  Study-1 4
1 Drug-A  Study-1 5
2 Drug-A  Study-2 1
2 Drug-A  Study-2 2
2 Drug-A  Study-2 3
2 Drug-A  Study-2 4
2 Drug-A  Study-2 5
3 Drug-A  Study-3 1
3 Drug-A  Study-3 2
3 Drug-A  Study-3 3
3 Drug-A  Study-3 4
3 Drug-A  Study-3 5
4 Drug-B  Study-1 1
4 Drug-B  Study-1 2
4 Drug-B  Study-1 3
4 Drug-B  Study-1 4
4 Drug-B  Study-1 5
5 Drug-B  Study-2 1
5 Drug-B  Study-2 2
5 Drug-B  Study-2 3
5 Drug-B  Study-2 4
5 Drug-B  Study-2 5
6 Drug-B  Study-3 1
6 Drug-B  Study-3 2
6 Drug-B  Study-3 3
6 Drug-B  Study-3 4
6 Drug-B  Study-3 5
;
run;
ods listing;
proc print;run;

proc template;
  define statgraph PowerSeries;
    begingraph;
      entrytitle 'Risk by Study and Treatment';
      layout overlay / xaxisopts=(griddisplay=on) 
                       yaxisopts=(griddisplay=on  linearopts=(viewmin=2)
                       offsetmax=0.1 offsetmin=0.1);
	seriesplot x=week y=risk / group=id  linecolorgroup=trt 
          linepatterngroup=study lineattrs=(thickness=2) name='a';
        discretelegend 'a' / title='Trt:' type=linecolor location=inside 
          halign=left valign=bottom valueattrs=(size=7) opaque=true;
	discretelegend 'a' / title='Study:' type=linepattern location=inside
          halign=right valign=bottom valueattrs=(size=7) opaque=true;
	  endlayout;
	endgraph;
  end;
run;

/*--SAS 9.3: Multiple groups in one graph--*/
ods listing gpath=&gpath image_dpi=&dpi;
ods graphics / reset width=5in height=3in imagename='MultiGroup_93';
proc sgrender data=study template=PowerSeries;
run;