FROM<Multiple Graphs on One page, the easy way (PDF) and the hard way (RTF>
样本数据:
data spiral; do theta=1 to 1080 by .1; r=.75 + sin((.25*theta)); x=r*cos(theta); y=r*sin(theta); output; end; run; data star; do theta=1 to 1080 by .75; r=sin((5)*theta); x=r*cos(theta); y=r*sin(theta); output; end; run; data colors; do theta=1 to 5760 by 1; r=sin((sqrt(3/2))*theta); x=r*cos(theta); y=r*sin(theta); z=(round(rannor(0),.01)); if abs(z) gt 1 then z=1-abs(z); output; end; run; %macro fixsymbols; %*Used to set symbol definitions for all 99 symbols, which will be used to make the multicolor graph below; goptions reset=all ;*used color and symbol definitions above,return to default before modifying here; %do i=1 %to 99; symbol&i height=.5 v=dot i=join line=35; %end; %mend; %fixsymbols; data rose; do theta=1 to 360 by .5; r=sin((9/2)*theta); x=r*cos(theta); y=r*sin(theta); output; end; run;
作图:
goptions reset=all device=pdfc ftext="swissb"; ods pdf file='C:\temp\four in one.pdf' startpage=never; ods proclabel "Four graphs on one page" ; goptions hsize=5.20 in vsize=3.75 in; title1; proc gplot data=spiral; goptions horigin=0in vorigin=3.99 in; title2 'PLOT #1-A spiral'; plot y*x /name="Spiral" noaxes nolegend noframe; symbol1 interpol=join width=10 ci=cxEC8B16 cv=cx546EF0 font=swiss value=-; run; quit; Proc gplot data=star; goptions horigin=5.25; title2 'PLOT #2-A star'; plot y*x /nolegend noaxes name="star" noframe; symbol1 interpol=join width=10 ci=cxEC8B16 cv=cx546EF0 font=swiss value=-; run; quit; %fixsymbols; proc gplot data=colors; goptions hsize= 5.20in vsize= 3.75in device=pdfc ftext="swissb" horigin=0 in vorigin=0 in ; *Need the above goptions because of the reset=all in the Macro fixsymbols; title2 'PLOT #3-Multicolor "thing"'; plot y*x=Z / name="Colors" nolegend noaxes noframe; run; quit; proc gplot data=rose; goptions horigin=5.25 in; title2 'PLOT #4-A rose'; plot y*x / name="Rose" noframe nolegend noaxes; symbol1 interpol=join width=10 ci=cxC01C6E cv=cxA7398A font=swiss value=-; run; quit; ods pdf close;
ods layout
Filename odsout ‘c:\’; title2"Absolute layout"; ods pdf body=”Absolute.pdf" ; ods layout Start width=10in height=8in ; ods region x=0 y=0 width=40% height=40%; proc gplot data=test; title2 'PLOT #1'; plot y*x /name="hany1" noframe; run; ods region x=50% y=0 width=40% height=40%; title2 'PLOT #2'; plot y*x /name="hany2" noframe; run; ods region x=0 y=50% width=40% height=40%; title2 'PLOT #3'; plot y*x / name="hany3" noframe; run; ods region x=50% Y=50% width=40% height=40%; title2 'PLOT #4'; plot y*x / name="hany4" noframe; run; quit; ods layout end; ods pdf close;