1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
| %macro fig1(inlabtest=,
outlabtest=,
order1=,
order2=,
order3=);
goptions/* reset=global device=bmp gsfname=grafout gsfmode=replace rotate=landscape ftext=swiss ftitle=swiss htitle=1.0
htext=1.0 cback=white noborder*/;
title1 "&title1";
footnote h=0.8 j=l "&path.\FIG1.sas (&sysdate9)";
symbol1 i=join color=blue v=triangle l=1 h=1.5;
symbol2 i=join color=brown v=star l=1 h=1.5;
symbol3 i=join color=red v=diamond l=1 h=1.5;
symbol4 i=join color=black v=square l=1 h=1.5;
symbol5 i=join color=orange v=circle l=1 h=1.5;
symbol6 i=join color=grey v=dot l=1 h=1.5;
symbol7 i=join color=green v=plus l=1 h=1.5;
symbol8 i=join color=charcoal v=x l=1 h=1.5;
symbol9 i=join color=cream v=hash l=1 h=1.5;
symbol10 i=join color=cyan v=y l=1 h=1.5;
symbol11 i=join color=olive v=z l=1 h=1.5;
symbol12 i=join color=purple v=# l=1 h=1.5;
symbol13 i=join color=magenta v=$ l=1 h=1.5;
axis1 label=("Visit") minor=none major=none value=(height=0.8) order=(1 to 7 by 1);
axis2 label=(angle=90 "&outlabtest.") value=(height=0.8) order=(&order1.);
legend1 label=(justify=c '')
value=(tick=1 justify=c 'Pt 0101'
tick=2 justify=c 'Pt 0104'
tick=3 justify=c 'Pt 0203'
tick=4 justify=c 'Pt 0303'
tick=5 justify=c 'Pt 0305'
tick=6 justify=c 'Pt 0702'
tick=7 justify=c 'Pt 0801'
tick=8 justify=c 'Pt 0803'
tick=9 justify=c 'Pt 0902'
tick=10 justify=c 'Pt 0905'
tick=11 justify=c 'Pt 1102'
tick=12 justify=c 'Pt 0401')
cborder=black position=(bottom center outside);
proc gplot data=LAB3(where=(GRP=1 and REP2 IN ("&inlabtest.")));
plot LABRESI2*VISITNUM=PATNUM / legend=legend1 haxis=axis1 vaxis=axis2;
title3 "Figure 1: &outlabtest. : Plots of raw data over time per subject, placebo group";
run;
quit;
%mend fig1;
options nodate nonumber orientation=landscape;
ods listing close;
ods escapechar='^';
ods pdf file = "&path1.\FIG1.pdf" ;
ods rtf file = "&path1.\FIG1.rtf" ;
%fig1(inlabtest=Basophils,
outlabtest=Basophils,
order1=0 to 0.3 by 0.05,
order2=0 to 0.3 by 0.05,
order3=0 to 0.3 by 0.05);
%fig1(inlabtest=Eosinophils,
outlabtest=Eosinophils,
order1=0 to 2.5 by 0.25,
order2=0 to 1.5 by 0.25,
order3=0 to 1.5 by 0.25);
ods rtf close;
ods pdf close;
ods listing; |
Partager