data serum1;
input group n1 percent1 n2 percent2;
length cat $20.;
if group=1 then cat="< 1.2";
if group=2 then cat=">= 1.2 to < 2.02";
if group=3 then cat=">= 2.02 to < 5.35";
if group=4 then cat=">= 5.35";
cards;
1 13 60 4 20
2 12 50 3 18
3 16 75 8 40
4 14 65 6 33
;
run;
proc template;
define statgraph barchart;
begingraph;
layout lattice /rows=6 rowweights=(0.40 0.05 0.05 0.40 0.05 0.05);
layout overlay/ yaxisopts=(linearopts=(tickvaluesequence=(increment=20 start=0 end=100) viewmin=0 viewmax=100)
label="Trough Serum Sirukumab Concentration (µg/mL) in Log-scale"
labelattrs=(family="Times New Roman" size=10pt)
tickvalueattrs=(family="Times New Roman" size=10pt))
xaxisopts=(display=(line ticks) label="Baseline CRP Level (mg/dL) in Sirukumab 50 mg q4w Group");
barchart x=group y=percent1;
endlayout;
blockplot x=group block=n1/ valuefitpolicy=shrink label="n= "
display=(label values);
blockplot x=group block=cat/ valuefitpolicy=shrink display=(values);
layout overlay/yaxisopts=(linearopts=(tickvaluesequence=(increment=20 start=0 end=100) viewmin=0 viewmax=100)
label="Trough Serum Sirukumab Concentration (µg/mL) in Log-scale"
labelattrs=(family="Times New Roman" size=10pt)
tickvalueattrs=(family="Times New Roman" size=10pt))
xaxisopts=(display=(line ticks)) ;
barchart x=group y=percent2;
endlayout;
blockplot x=group block=n2/ valuefitpolicy=shrink label="n= "
display=(label values);
blockplot x=group block=cat/ valuefitpolicy=shrink display=(values);
endlayout;
endgraph;
end;
run;
proc sgrender data=serum1 template=barchart;
run;
|