求教 生成频数表

08liurenxing 发表于 2010-3-22 23:53
谢谢了，但是因为我导入的数据集是很大的，变量是X1-X10。而且观测值6百多个，虽然都是1.2.3.4。所以不能直接输入成X，有没有其他方法啊？

1. 
   
2. DATA A;
   
3. input x1 x2 x3 X4 X5;
   
4. cards;
   
5. 1 2 3 4 4
   
6. 2 3 4 1 4
   
7. 3 2 1 4 1
   
8. 1 2 3 4 1
   
9. ；
   
10. %MACRO KK;
    
11. DATA B;
    
12.   LENGTH Level 8;
    
13.   SET A END = Eof;
    
14.   ARRAY X{&Nvar};
    
15.   %DO I = 1 %TO 4; ARRAY X&I._{&Nvar}; %END;
    
16.   DO _N_ = 1 TO DIM(X);
    
17.    %DO I = 1 %TO 4; X&I._[_N_]+(X[_N_] = &I); %END;
    
18.   END;
    
19.   ARRAY _X{&Nvar};
    
20.   IF  Eof THEN DO;
    
21.    %DO I = 1 %TO 4;
    
22.      Level = &I;
    
23.      DO _N_ = 1 TO &Nvar;
    
24.       _X[_N_] = X&I._[_N_];
    
25.      END;
    
26.      OUTPUT;
    
27.    %END;
    
28.   END;
    
29. KEEP Level _X:;
    
30. RUN;
    
31. %MEND KK;
    
32. %LET Nvar = 5;
    
33. %KK
    
34. ;

复制代码

我是闲的无聊。楼上用FREQ是最好的方法。致敬。

08liurenxing 发表于 2010-3-22 23:53
谢谢了，但是因为我导入的数据集是很大的，变量是X1-X10。而且观测值6百多个，虽然都是1.2.3.4。所以不能直接输入成X，有没有其他方法啊？

You need table

Level _X1 _X2 _X3 _X4 _X5
1             1      2    0     1      1     2
2             2       1   3     0      0     0
3              3      1    1    2     0     0
4              4       0   0    1     3     2

非常感谢楼上两位高手，我都试了一下，jingju11跑出来就是我想要的，最后跑出来的表是
Obs Level _X1 _X2 _X3 _X4 _X5
1             1      2    0     1      1     2
2             2       1   3     0      0     0
3              3      1    1    2     0     0
4              4       0   0    1     3     2

这个就是我想要的表格，非常感谢

不过程序太复杂，看不懂都，哎呀，啥时候我要是会熟练写宏就好了。

08liurenxing 发表于 2010-3-23 09:09
不过程序太复杂，看不懂都，哎呀，啥时候我要是会熟练写宏就好了。

Give you  a simple code without macro.
DATA test;;
input x1 x2 x3 X4 X5;
cards;
1 2 3 4 4
2 3 4 1 4
3 2 1 4 1
1 2 3 4 1
;

data freq(keep=level freq1-freq5);
  set test end=last;
  array tpvar{5} x1-x5;
  array myfre{4,5} _temporary_  (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
  do i=1 to dim(tpvar);
       myfre{tpvar{i},i }=myfre{tpvar{i},i }+1;
  end;
  if last then do;
    do level=1 to 4 ;
       freq1=myfre{level,1}; freq2=myfre{level,2};
       freq3=myfre{level,3};freq4=myfre{level,4}; freq5=myfre{level,5};
       output;
    end;
    end;
run;

proc print noobs;  run;

1. data test;
   
2.     input x1 x2 x3 x4;
   
3.         datalines;
   
4.         1 1 1 1
   
5.         1 1 2 1
   
6.         2 1 3 1
   
7.         2 3 3 1
   
8.         3 4 2 1
   
9.         3 2 4 1
   
10.         4 2 1 1
    
11.         ;
    
12. run;
    
13. 
    
14. data x;
    
15.     input x @@;
    
16.         datalines;
    
17.         1 2 3 4
    
18.         ;
    
19. run;
    
20. 
    
21. %macro count(n=2);/n=变量个数
    
22. %do i=1 %to &n;
    
23. proc sql;
    
24.     create table x&i as
    
25.         select x&i as x,count(x&i) as x&i
    
26.         from test
    
27.         group by x&i
    
28.     order by x;
    
29. quit;
    
30. 
    
31. data x;
    
32.    merge x x&i;
    
33.    by x;
    
34. run;
    
35. %end;
    
36. %mend count;
    
37. 
    
38. %count(n=4);

复制代码

这种类型的数据统计，hash是最快的，而且不受变量取值分布(这里是4个值)的约束

1. %MACRO FREQmcr;
   
2. DATA FINAL;
   
3.   LENGTH LEVEL X1-X&Nvar 8;
   
4.   RETAIN X1-X&Nvar 0;
   
5.   DO Level = 1 TO 4;
   
6.    OUTPUT;
   
7.   END;
   
8. RUN;
   
9. %DO I = 1 %TO &Nvar;
   
10.   ODS OUTPUT
    
11.   ONEWAYFREQS = OUT(KEEP=X&I  FREQUENCY RENAME=(X&I=Level FREQUENCY=X&I));
    
12.   PROC FREQ DATA = A;
    
13.    TABLES X&I;
    
14.   RUN;
    
15.   DATA FINAL;
    
16.    MERGE FINAL OUT;
    
17.    BY Level;
    
18.   RUN;
    
19. %END;
    
20. ODS OUTPUT CLEAR;
    
21. %MEND FREQmcr;

复制代码

I like to use proc freq

感激各位高手，能跑出结果了，全部理解并且学会还需要一点时间

1# 08liurenxing

1. data a;
   
2. input x1 x2 x3 x4 x5;
   
3. cards;
   
4. 1 2 3 4 4
   
5. 2 3 4 1 4
   
6. 3 2 1 4 1
   
7. 1 2 3 4 1
   
8. ;
   
9. run;
   
10. data b;
    
11. set a;
    
12. n=_n_;
    
13. run;
    
14. proc transpose data=b out=c;
    
15. var x1-x5;
    
16. by n;
    
17. run;
    
18. proc freq data=c;
    
19. table col1*_name_;
    
20. run;

复制代码

利用转置功能也能实现，程序较简单些。