如何用SAS画统计图，这是我的学习分享！

1. %macro comment();    /*这是一种比较特殊的注释方式*/
   
2.    Picture: Draw Text
   
3.             (using template and sgrender procedure)
   
4.    Software： SAS 9.4 TS Level 1M2
   
5.    Name: justsoso
   
6.    Date: 20180308
   
7.    From: Getting Started with the Graph Template Language in SAS:
   
8.          Examples, Tips, and Techniques for Creating Custom Graphs
   
9.    History: 20180308;
   
10. %mend;
    
11. 
    
12. ods _all_ close;     /*关闭所有ods destinations，避免不必要的输出，节省计算机资源*/
    
13. /*ods listing gpath='C:\Users\Administrator\Desktop\test20180308' image_dpi=300;*/
    
14. ods listing gpath='C:\Users\Administrator\Desktop\test20180308';
    
15. /*打开ods listing这一destination，指定图片保存路径，★★★★★需提前建立*/
    
16. /*ods graphics on / imagename="picture" outputfmt=pdf;*/
    
17. /*图片名称picture，输出类型pdf*/
    
18. ods graphics off;
    
19. 
    
20. /*Draw Text*/
    
21. proc template;
    
22. define statgraph Fig_7_4_1;
    
23. begingraph;
    
24. entrytitle "Regression Fit Plot";
    
25. layout overlay / xaxisopts=( offsetmin=.1);
    
26.    drawtext textattrs=(style=italic size=7pt)
    
27.       "Band shows 99% Confidence Limit of Mean" /
    
28.       anchor=bottomleft width=15 widthunit=percent/*文本框的宽度*/
    
29.       xspace=wallpercent yspace=wallpercent
    
30.       x=0 y=10 justify=center ;
    
31.    modelband "myclm";
    
32.    scatterplot x=height y=weight / primary=true;
    
33.    regressionplot x=height y=weight / alpha=.01 clm="myclm" ;
    
34.       drawtext textattrs=(color=gray size=40pt weight=bold)
    
35.       "PRELIMINARY"/ transparency=.75 rotate=-30 width=200
    
36.       widthunit=percent justify=center;
    
37. endlayout;
    
38. endgraph;
    
39. end;
    
40. run;
    
41. proc sgrender data=sashelp.class template=Fig_7_4_1;
    
42. run;
    
43. 
    
44. ods _all_ close;
    
45. /*ods html;      最好将ods destination恢复至默认的html*/

复制代码

1. %macro comment();    /*这是一种比较特殊的注释方式*/
   
2.    Picture: Data Set Based Annotation
   
3.             (using template and sgrender procedure)
   
4.    Software： SAS 9.4 TS Level 1M2
   
5.    Name: justsoso
   
6.    Date: 20180308
   
7.    From: Getting Started with the Graph Template Language in SAS:
   
8.          Examples, Tips, and Techniques for Creating Custom Graphs
   
9.    History: 20180308;
   
10. %mend;
    
11. 
    
12. ods _all_ close;     /*关闭所有ods destinations，避免不必要的输出，节省计算机资源*/
    
13. /*ods listing gpath='C:\Users\Administrator\Desktop\test20180308' image_dpi=300;*/
    
14. ods listing gpath='C:\Users\Administrator\Desktop\test20180308';
    
15. /*打开ods listing这一destination，指定图片保存路径，★★★★★需提前建立*/
    
16. /*ods graphics on / imagename="picture" outputfmt=pdf;*/
    
17. /*图片名称picture，输出类型pdf*/
    
18. ods graphics off;
    
19. 
    
20. /*Data Set Based Annotation*/
    
21. proc template; /*--SAS 9.4--*/
    
22. define statgraph Fig_7_5_1;
    
23. begingraph;
    
24. entrytitle 'Vehicle Statistics';
    
25. layout lattice / columns=2;
    
26.    layout overlay;
    
27.       barchart x=origin y=mpg_city / stat=mean group=type
    
28.          groupdisplay=cluster dataskin=gloss;
    
29.    endlayout;
    
30.    layout overlay;
    
31.       histogram mpg_city;
    
32.       densityplot mpg_city;
    
33.    endlayout;
    
34.    annotate;
    
35. endlayout;
    
36. endgraph;
    
37. end;
    
38. run;
    
39. data anno;
    
40. retain function 'text' x1space 'graphpercent'
    
41.    y1space 'graphpercent';
    
42. retain textsize 40 textcolor 'black' textweight 'bold';
    
43. width=1000; anchor='center'; x1=50; y1=50; rotate=30;
    
44. transparency=0.5; label="Confidential"; output;
    
45. run;
    
46. proc sgrender template=Fig_7_5_1 sganno=anno
    
47. data=sashelp.cars(where=(type in ('Sedan' 'Sports' 'SUV')));
    
48. run;
    
49. 
    
50. ods _all_ close;
    
51. /*ods html;      最好将ods destination恢复至默认的html*/

复制代码

1. %macro comment();    /*这是一种比较特殊的注释方式*/
   
2.    Picture: Macro Variables
   
3.             (using template and sgrender procedure)
   
4.    Software： SAS 9.4 TS Level 1M2
   
5.    Name: justsoso
   
6.    Date: 20180312
   
7.    From: Getting Started with the Graph Template Language in SAS:
   
8.          Examples, Tips, and Techniques for Creating Custom Graphs
   
9.    History: 20180312;
   
10. %mend;
    
11. 
    
12. ods _all_ close;     /*关闭所有ods destinations，避免不必要的输出，节省计算机资源*/
    
13. ods listing gpath='C:\Users\Administrator\Desktop\test20180312';
    
14. /*打开ods listing这一destination，指定图片保存路径，★★★★★需提前建立*/
    
15. ods graphics on / imagename="picture" outputfmt=pdf;
    
16. /*图片名称picture，输出类型pdf*/
    
17. ods graphics off;
    
18. 
    
19. /*Macro Variables*/
    
20. proc template;
    
21. define statgraph Fig_8_4_2;
    
22. begingraph;
    
23. mvar _x _y;
    
24. nmvar _degree;
    
25. entrytitle _y ' by ' _x;
    
26. layout overlay / xaxisopts=(griddisplay=on)
    
27.    yaxisopts=(griddisplay=on);
    
28.    scatterplot x= _x y=_y;
    
29.    regressionplot x= _x y=_y / degree=_degree;
    
30. endlayout;
    
31. endgraph;
    
32. end;
    
33. run;
    
34. %let _x=Horsepower;
    
35. %let _y=Mpg_City;
    
36. %let _degree=2;
    
37. proc sgrender template=Fig_8_4_2 data=sashelp.cars;
    
38. run;
    
39. 
    
40. ods _all_ close;
    
41. /*ods html;      最好将ods destination恢复至默认的html*/

复制代码

1. %macro comment();    /*这是一种比较特殊的注释方式*/
   
2.    Picture: Dynamics
   
3.             (using template and sgrender procedure)
   
4.    Software： SAS 9.4 TS Level 1M2
   
5.    Name: justsoso
   
6.    Date: 20180312
   
7.    From: Getting Started with the Graph Template Language in SAS:
   
8.          Examples, Tips, and Techniques for Creating Custom Graphs
   
9.    History: 20180312;
   
10. %mend;
    
11. 
    
12. ods _all_ close;     /*关闭所有ods destinations，避免不必要的输出，节省计算机资源*/
    
13. ods listing gpath='C:\Users\Administrator\Desktop\test20180312';
    
14. /*打开ods listing这一destination，指定图片保存路径，★★★★★需提前建立*/
    
15. ods graphics on / imagename="picture" outputfmt=pdf;
    
16. /*图片名称picture，输出类型pdf*/
    
17. ods graphics off;
    
18. 
    
19. /*Dynamics*/
    
20. proc template;
    
21. define statgraph Fig_8_4;
    
22. begingraph;
    
23. dynamic _var;
    
24. entrytitle 'Distribution of ' _var;
    
25. layout overlay / xaxisopts=(display=(ticks tickvalues))
    
26.    yaxisopts=(griddisplay=on);
    
27.    histogram _var / binaxis=false;
    
28.    densityplot _var / kernel();
    
29. endlayout;
    
30. endgraph;
    
31. end;
    
32. run;
    
33. proc sgrender template=Fig_8_4 data=sashelp.cars;
    
34. dynamic _var='Horsepower';
    
35. run;
    
36. 
    
37. ods _all_ close;
    
38. /*ods html;      最好将ods destination恢复至默认的html*/

复制代码

1. %macro comment();    /*这是一种比较特殊的注释方式*/
   
2.    Picture: Conditionals
   
3.             (using template and sgrender procedure)
   
4.    Software： SAS 9.4 TS Level 1M2
   
5.    Name: justsoso
   
6.    Date: 20180312
   
7.    From: Getting Started with the Graph Template Language in SAS:
   
8.          Examples, Tips, and Techniques for Creating Custom Graphs
   
9.    History: 20180312;
   
10. %mend;
    
11. 
    
12. ods _all_ close;     /*关闭所有ods destinations，避免不必要的输出，节省计算机资源*/
    
13. ods listing gpath='C:\Users\Administrator\Desktop\test20180312';
    
14. /*打开ods listing这一destination，指定图片保存路径，★★★★★需提前建立*/
    
15. ods graphics on / imagename="picture" outputfmt=pdf;
    
16. /*图片名称picture，输出类型pdf*/
    
17. ods graphics off;
    
18. 
    
19. /*Conditionals*/
    
20. proc template;
    
21. define statgraph Fig_8_4_3;
    
22. begingraph;
    
23. dynamic _var _type;
    
24. entrytitle 'Distribution of ' _var;
    
25. layout overlay / xaxisopts=(display=(ticks tickvalues))
    
26.       yaxisopts=(griddisplay=on);
    
27.    histogram _var / binaxis=false;
    
28.    if (_type = 'Kernel') densityplot _var / kernel();
    
29.    else densityplot _var;
    
30.    endif;
    
31. endlayout;
    
32. endgraph;
    
33. end;
    
34. run;
    
35. proc sgrender template=Fig_8_4_3 data=sashelp.cars;
    
36. dynamic _var='Horsepower' _type='Kernels';
    
37. run;
    
38. 
    
39. ods _all_ close;
    
40. /*ods html;      最好将ods destination恢复至默认的html*/

复制代码

1. %macro comment();    /*这是一种比较特殊的注释方式*/
   
2.    Picture: Function Evaluation
   
3.             (using template and sgrender procedure)
   
4.    Software： SAS 9.4 TS Level 1M2
   
5.    Name: justsoso
   
6.    Date: 20180312
   
7.    From: Getting Started with the Graph Template Language in SAS:
   
8.          Examples, Tips, and Techniques for Creating Custom Graphs
   
9.    History: 20180312;
   
10. %mend;
    
11. 
    
12. ods _all_ close;     /*关闭所有ods destinations，避免不必要的输出，节省计算机资源*/
    
13. ods listing gpath='C:\Users\Administrator\Desktop\test20180312';
    
14. /*打开ods listing这一destination，指定图片保存路径，★★★★★需提前建立*/
    
15. ods graphics on / imagename="picture" outputfmt=pdf;
    
16. /*图片名称picture，输出类型pdf*/
    
17. ods graphics off;
    
18. 
    
19. /*Function Evaluation*/
    
20. proc template; /*--SAS 9.4--*/
    
21. define statgraph Fig_8_4_4;
    
22. begingraph / datasymbols=(circlefilled trianglefilled squarefilled);
    
23. entrytitle 'Mileage by Horsepower';
    
24. entryfootnote halign=left 'Excluding Hybrids';
    
25. layout overlay;
    
26.    scatterplot x=horsepower y=mpg_city / group=origin
    
27.       filledoutlinedmarkers=true;
    
28.    regressionplot x=horsepower y=mpg_city / degree=2 name='a'
    
29.       group=origin lineattrs=(thickness=3);
    
30.    layout gridded / rows=2 order=columnmajor border=true
    
31.       autoalign=(right);
    
32.       entry halign=right 'N = ';
    
33.       entry halign=right {unicode SIGMA} ' =' ;
    
34.       entry halign=left eval(strip(put(n(mpg_city),4.0)));
    
35.       entry halign=left eval(strip(put(stddev(mpg_city),4.1)));
    
36.    endlayout;
    
37. discretelegend 'a'/location=inside halign=right valign=top
    
38. across=1;
    
39. endlayout;
    
40. endgraph;
    
41. end; run;
    
42. proc sort data=sashelp.cars(where=(type ne 'Hybrid')) out=cars;
    
43. by origin; run;
    
44. proc sgrender template=Fig_8_4_4 data=cars; run;
    
45. 
    
46. ods _all_ close;
    
47. /*ods html;      最好将ods destination恢复至默认的html*/

复制代码

楼主，可以设置图片分辨率吗，因为输出来的图片分辨率必须达到300dpi以上才行

ransuoqu 发表于 2018-8-6 13:53
楼主，可以设置图片分辨率吗，因为输出来的图片分辨率必须达到300dpi以上才行

改写原文中的这一句：
ods graphics on / imagename="picture" outputfmt=pdf;
为
ods graphics on / imagename="picture" outputfmt=pdf image_dpi=300;
即可

李宁老兄真够厉害的，花了真么多图。

总结的文字为也让我看看啊。

谢谢提供好的学习内容。