同时绘制直方图、折线图,如何调整点的位置,使其对齐(见附图)代码如下:
libname leave"f:\cx\usr_leave_warn";
proc greplay igout=work.gseg nofs;
delete _all_;
run;
quit;
axis1 origin=(20,20)pct length=60 pct
ORDER=(250000 TO 350000 BY 10000) minor=none label=('ONLINE_TIME');
axis2 origin=(20,20)pct length=60 pct
ORDER=(1 TO 10 BY 1);
pattern1 value=solid color=vibg;
title 'ALL_NUM LEAVE_RATE AGAINST ONLINE_TIME';
GOPTIONS DEVICE=GIF NODISPLAY XPIXELS=600 YPIXELS=400 BORDER;
PROC GCHART DATA=leave.mnths_levae_rat GOUT=WORK.GSEG;
VBAR ord/ SUMVAR=N_ALL discrete RAXIS=AXIS1 MAXIS=AXIS2 WIDTH=9 SPACE=5;
RUN;
QUIT;
AXIS1 ORDER=(0 TO 0.2 BY 0.05) VALUE=NONE ORIGIN=(20,20) PCT LENGTH=60 PCT
LABEL=NONE MAJOR=NONE MINOR=NONE;
AXIS2 ORDER=(1 TO 10 BY 1) VALUE=NONE ORIGIN=(20,20)PCT LENGTH=60 PCT LABEL=NONE MAJOR=NONE MINOR=NONE OFFSET=(5.5,5.5)PCT;
AXIS3 ORDER=(0 TO 0.2 BY 0.05) ORIGIN=(70,20)PCT LENGTH=60 PCT
MINOR=NONE LABEL=('LEAVE_RATE');
SYMBOL1 I=JOIN V=DOT C=DEPK W=3 H=1.5;
SYMBOL2 I=JOIN V=DOT C=DEPK W=3 H=1.5;
FOOTNOTE1 C=VIBG MOVE=(30,3)PCT F=MARKER 'U' F='Albany AMT' C=BLACk ' SALES';
FOOTNOTE2 C=DEPK MOVE=(45,3)PCT '_______' C=BLACK FONT='Albany AMT' ' Earings';
title1;
PROC GPLOT DATA=leave.mnths_levae_rat gout=work.gseg;
PLOT LEAVE_RATE*ord/vaxis=axis1 haxis=axis2;
PLOT LEAVE_RATE*ord/vaxis=axis3;
RUN;
quit;
goptions reset=all border;
proc greplay igout=work.gseg nofs tc=sashelp.templt
template=whole;
treplay 1:gchart 1:gplot;
run;
quit;
proc greplay igout=wokr.gseg nofs; delete _all_;run;