请教一个SAS数据处理的问题

data wkn;                                                                                                                              
input name $ type $;                                                                                                                    
cards;                                                                                                                                 
A    1                                                                                                                                 
A    1                                                                                                                                 
A    2                                                                                                                                 
B    1                                                                                                                                 
C    1                                                                                                                                 
C    3                                                                                                                                 
C    2                                                                                                                                 
;                                                                                                                                       
run;                                                                                                                                    
data wkn1;                                                                                                                              
set wkn nobs=n;                                                                                                                        
by name;                                                                                                                                
retain typeall;                                                                                                                        
if first.name then do;                                                                                                                  
k=1;                                                                                                                                    
do i=1 to n;                                                                                                                           
set wkn(rename=(name=na type=ty)) point=i;                                                                                             
if (name=na) and (k=1) then do;                                                                                                         
typeall=ty;                                                                                                                             
k=k+1;end;                                                                                                                              
else if(name=na) and (k>1) then do;                                                                                                     
typeall=compress(typeall||ty);end;                                                                                                      
end;end;                                                                                                                                
proc print;                                                                                                                             
var name type typeall;                                                                                                                  
run ;

输出……

thank you guys all.

i almost forgot check this post.

here are some other solutions i got:

data b;
set b;
TYPECOMBINE=cat(col1,col2,col3); /*this is the point you need to check*/
TYPEALL=compress(TYPECOMBINE,'.');
run;

--------------------------------

data temp(keep=name typeall);
length typeall $200;
retain typeall;
set a;
by name;
if first.name then typeall=type;
else typeall=cats(typeall,type);
if last.name then output;
run;

高手们，学习啦！

1. data raw;
   
2.         input NAME $ TYPE;
   
3. datalines;
   
4. A    1
   
5. A    1
   
6. A    2
   
7. B    1
   
8. C    1
   
9. C    3
   
10. C    2
    
11. ;
    
12. 
    
13. data out;
    
14.         length typeall $10;
    
15.         do _n_=1 by 1 until(last.name);
    
16.                 set raw;
    
17.                 by name;
    
18.                 typeall=cats(typeall,put(type,best.));
    
19.         end;
    
20.         do _n_=1 to _n_;
    
21.                 set raw;
    
22.                 output;
    
23.         end;
    
24. run;

复制代码

学习了。mark。