SAS 统计某个数据集各个字段频数，并汇集到一个表中

扶摇直上崛起

1. /*统计表的字段*/
   
2. PROC CONTENTS DATA=SASHELP.CLASS NOPRINT OUT=CA(KEEP=NAME);
   
3.    
   
4. RUN;
   
5. 
   
6. /*提取表的变量名*/
   
7. PROC SQL NOPRINT;
   
8. SELECT NAME INTO:A SEPARATED BY ' ' FROM CA;
   
9. RUN;
   
10. QUIT;
    
11. 
    
12. 
    
13. %LET I=1;
    
14. 
    
15. /*计算各个变量的频数，并存放在一个数据集中*/
    
16. 
    
17. %MACRO M_A();
    
18. 
    
19.     PROC FREQ DATA=SASHELP.CLASS;
    
20.         %DO %UNTIL(%SCAN(&A.,&I,' ')=);
    
21. 
    
22.             %LET NI=%SCAN(&A,&I,' ');
    
23.             TABLES &NI/MISSING OUT=&NI(RENAME=(&NI=NAME)) NOPRINT;
    
24. 
    
25.             %LET i = %eval(&i.+1);
    
26. 
    
27.             %PUT "&I.=" &NI.;
    
28.         
    
29.         %END;
    
30.     RUN;
    
31. 
    
32.     %LET I=1;
    
33.     %DO %UNTIL(%SCAN(&A.,&I,' ')=);
    
34. 
    
35.         %LET NI=%SCAN(&A,&I,' ');
    
36.         
    
37.         DATA &NI.;
    
38.             LENGTH VAR $30. VAL $40.;
    
39.             SET &NI.;
    
40.             VAR="&NI.";
    
41.             VAL=CATS(NAME,'');
    
42.             DROP NAME;
    
43.         RUN;
    
44.         PROC APPEND BASE=D DATA=&NI.;
    
45.         RUN;
    
46. 
    
47.         %LET i = %EVAL(&i.+1);
    
48. 
    
49.         %PUT "&I.=SSSSSSS" &NI.;
    
50. 
    
51.     %END;
    
52. 
    
53.     PROC PRINT DATA=D;
    
54.     RUN;
    
55. 
    
56. %MEND;
    
57. 
    
58. %M_A();

复制代码