SAS数据处理题目

whymath 发表于 2018-8-18 11:01

明白了！
whymath 水平高，又热心肠，为你点赞

1. %put Hi, whymath.;
   
2. %put Advanced mode at bbs.pinggu;

复制代码

十个多月后，我已经可以解决此问题：

1. data test;
   
2.     input Group$;
   
3.     cards;
   
4.     A
   
5.     A
   
6.     A
   
7.     A
   
8.     B
   
9.     B
   
10.     B
    
11.     B
    
12.     B
    
13.     B
    
14.     C
    
15.     C
    
16.     C
    
17.     ;
    
18. run;
    
19. 
    
20. data test;
    
21.     set test nobs=nobs;
    
22. 
    
23.     Count = .;
    
24.     do i = 1 to nobs;
    
25.         set test(rename=Group=GroupTmp) point=i;
    
26.         if Group = GroupTmp then Count + 1;
    
27.     end;
    
28.     drop GroupTmp;
    
29. run;

复制代码

另从Overflow上见到他山之玉，并记于此：

1. proc summary data = test nway order=freq missing;
   
2.     class group;
   
3.     output out=test1(drop=_type_ index=(group)) / levels;
   
4. run;
   
5. 
   
6. data test2;
   
7.     merge test test1;
   
8.     by group;
   
9. run;

复制代码

Method2:

1. data test;
   
2.   do until(last.group);
   
3.     set test;
   
4.     by group;
   
5.     count+1;
   
6.   end;
   
7. 
   
8.   do until(last.group);
   
9.     set test;
   
10.     by group;
    
11.     output;
    
12.   end;
    
13. run;

复制代码

Method1.1:

1. data test(drop=tmpgroup);
   
2.   set test;
   
3. 
   
4.   do i=1to rec;
   
5.     set test(rename=group=tmpgroup) nobs=rec point=i;
   
6.     count=sum(count,group=tmpgroup);
   
7.   end;
   
8. run;

复制代码

Method3:

1. data test;
   
2.   input Group$;
   
3.   cards;
   
4.   A
   
5.   A
   
6.   A
   
7.   A
   
8.   B
   
9.   B
   
10.   B
    
11.   B
    
12.   B
    
13.   B
    
14.   C
    
15.   C
    
16.   C
    
17.   ;
    
18. run;
    
19. 
    
20. data want;
    
21.   set test;
    
22. 
    
23.   array _par_[&sysnobs.]$_temporary_;
    
24.   array _cnt_[&sysnobs.]_temporary_;
    
25.   if _n_=1 then do until(eof);
    
26.     set test(rename=group=tmpgroup) end=eof;
    
27.     do i=1 to dim(_par_) until(_par_[i]=tmpgroup);
    
28.       if _par_[i]='' then _par_[i]=tmpgroup;
    
29.       _cnt_[i]+(_par_[i]=tmpgroup);
    
30.     end;
    
31.   end;
    
32. 
    
33.   do i=1 to dim(_par_) until(group=_par_[i]);
    
34.     count=_cnt_[i];
    
35.   end;
    
36. run;

复制代码

Method4:

1. data want(drop=rc);
   
2.   set test;
   
3. 
   
4.   rc=open("test(where=(group='"||trim(group)||"'))");
   
5.   if rc then do;
   
6.     count=attrn(rc,'nlobsf');
   
7.     rc=close(rc);
   
8.   end;
   
9. run;

复制代码

Method5:

1. data want(drop=rc);
   
2.   set test;
   
3. 
   
4.   rc=dosubl("
   
5.     data _null_;
   
6.       set test(where=(group='"||trim(group)||"') keep=group) end=eof;
   
7.       call symputx('n_"||cats(_n_)||"',_n_);
   
8.     run;
   
9.   ");
   
10.   count=symget('n_'||cats(_n_));
    
11. run;

复制代码

Method6:

1. data want;
   
2.   set test;
   
3. 
   
4.   dcl hash h(dataset:"test(where=(group='"||strip(group)||"'))", multidata:'yes');
   
5.   h.definekey('group');
   
6.   h.definedone();
   
7.   count=h.num_items;
   
8. run;

复制代码

Method6.1:

1. data want(drop=rc);
   
2.   set test;
   
3. 
   
4.   if _n_=1 then do;
   
5.     dcl hash h(dataset:'test',multidata:'yes');
   
6.     h.definekey('group');
   
7.     h.definedone();
   
8.   end;
   
9.   rc=h.find();
   
10.   do while(rc=0);
    
11.     count=sum(count,1);
    
12.     rc=h.find_next();
    
13.   end;
    
14. run;

复制代码