怎么统计字符的频数

cathy3212 发表于 2011-11-24 12:06
试试这个，我之前的那个我是运行得出来的，就是结果不对

谢谢，这个能做出来

tj0412ymy 发表于 2011-11-24 13:47
A solution in Data Step.

谢谢，看着这个就想起来多年前学得C语言了。

1. /* an additional solution in  data step */
   
2. data want(drop=trdirec);
   
3. do until (last.code);
   
4. set have;
   
5.   by qdate code;
   
6.    if first.code then do;
   
7.     buys =0;
   
8.     sells=0;
   
9.   end;
   
10.   if trdirec='B' then buys+1;
    
11.   else if trdirec='S' then sells+1;
    
12. end;
    
13. format qdate yymmdd10.;
    
14. run;

复制代码

webgu 发表于 2011-11-25 22:09

1. data want(drop=trdirec);
   
2. attrib Code format=$8. Qdate format=yymmdd10. buys sells format=best12.;
   
3. buys =0;sells=0;
   
4. do until (last.code);
   
5. set stock;
   
6.   by qdate code;
   
7. if trdirec='B' then buys+1;
   
8. else if trdirec='S' then sells+1;
   
9. end;
   
10. run;

复制代码

kuhasu 发表于 2011-11-26 00:42

呵呵，谢谢Super哥的指导和改进。看来我对do until 和Set语句的连用的理解还是有偏差。

webgu 发表于 2011-11-26 09:09
呵呵，谢谢Super哥的指导和改进。看来我对do until 和Set语句的边用的理解还是有偏差。

哪里啊，昨天晚上溜达，多手而已。
我也是菜鸟~

kuhasu 发表于 2011-11-26 14:08
哪里啊，昨天晚上溜达，多手而已。
我也是菜鸟~

太谦虚了。

可以用proc freq + proc transpose:

1. data stock;        
   
2. input Code $  Qdate $10. Trdirec $;
   
3. datalines;
   
4. 000002 2009-01-05 S
   
5. 000002 2009-01-05 S
   
6. 000002 2009-01-05 B
   
7. 000002 2009-01-05 F
   
8. 000003 2009-01-05 S
   
9. 000003 2009-01-05 S
   
10. 000003 2009-01-05 S
    
11. 000003 2009-01-05 B
    
12. 000002 2009-02-05 F
    
13. 000002 2009-02-05 S
    
14. 000002 2009-02-05 S
    
15. 000002 2009-02-05 B
    
16. 000003 2009-02-05 S
    
17. 000003 2009-02-05 B
    
18. 000003 2009-02-05 B
    
19. 000003 2009-02-05 B
    
20. ;
    
21. run;
    
22. 
    
23. proc sort data=stock out=stock1; by code qdate trdirec;run;
    
24. proc freq data=stock1;
    
25.         table code*qdate*trdirec / out=out0(drop=percent);
    
26. run;
    
27. proc transpose data=out0 out=out(drop=_name_ _label_);
    
28.         by code qdate;
    
29.         id trdirec;
    
30.         var count;
    
31. run;

复制代码