从网页里复制图分辨率太低了,根本达不到论文要求,怎么得到矢量图?
我画图的代码如下:
Data Germ; Input X1 X2 X3 Y @@; Cards; -1 -1 0 13.20 -1 1 0 13.45 1 -1 0 12.52 1 1 0 13.30 0 -1 -1 10.13 0 -1 1 16.69 0 1 -1 12.74 0 1 1 15.68 -1 0 -1 9.74 1 0 -1 9.34 -1 0 1 15.28 1 0 1 14.26 0 0 0 16.30 0 0 0 16.56 0 0 0 16.81 ; Proc rsreg data=Germ; Model Y = X1-X3 / lackfit; Run;
data grid; do; Y = . ; X3 =0; do X1 = -1 to 1 by 0.05; do X2 = -1 to 1by 0.05; output; end; end; end; data grid; set Germ grid; run;
proc rsreg data=grid out=predict noprint; model Y = X1-X3 / predict; run;
data plot; set predict(firstobs=16); proc g3d data=plot; plot X1*X2=Y / rotate=45 tilt=85 yticknum=5 xticknum=5 zticknum=5 zmin=12 zmax=17 ctop=red cbottom=blue caxis=black;
run;
Proc Gcontour data=plot; Plot X1*X2=Y / yticknum=5 xticknum=5 nlevels=10 caxis=black vaxis=axis haxis=axis legend=legend autolabel; axis value=(height=13pt) label=(height=13pt); legend value=(height=10pt) label=(height=10pt); Run;
|