%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;

/*--SAS 9.2: Small Multiples--*/
ods listing gpath=&gpath image_dpi=&dpi;
ods graphics / reset width=5in height=3in imagename='SmallMultiples_92';
title 'Risk by Study and Treatment';
proc sgpanel data=study;
  panelby study / layout=rowlattice onepanel novarname uniscale=column spacing=20;
  series x=week y=risk / group=trt lineattrs=(thickness=2);
  rowaxis grid;
  colaxis grid;
  run;