data a;                                                                                                                                 
input y1-y3;                                                                                                                           
cards;                                                                                                                                 
1 . 3                                                                                                                                   
. . .                                                                                                                                   
. . 1                                                                                                                                   
1 1 1                                                                                                                                   
;                                                                                                                                       
run;                                                                                                                                    
data b;                                                                                                                                 
set a;                                                                                                                                 
if y1 = . and y2=. and y3=. then tp=.;                                                                                                  
else if y1 ne . and y2 ne . and y3 ne . then tp =3;                                                                                    
else if y1=y2=. or y2=y3=. or y3=y1=. then tp =1;                                                                                       
else if y1 ne . or y2 ne . or y3 ne . then tp =2;                                                                                       
run;

谢谢！同时欢迎新成员加入！你可以通过每天签到赚取积分，然后兑换成金币！祝好！

y1         y2         y3         tp
1         .         3         2   
.         .         .         .   
.         .         1         1   
3       3       3      1
2        1      2      2
1        4      5      3
我忘记还有两种情况没有添加进去，刚应用了一下你的程序，下面两种情况实现不了，不知还有何高见？

觉得数据的呈现方式有15种，处理方式有7种，求指正，求简化

data a;                                                                                                                                 
input y1-y3;                                                                                                                           
cards;                                                                                                                                 
1      .      3                                                                                                                        
.      .      .                                                                                                                        
.      .      1                                                                                                                        
3      3      3                                                                                                                        
2      1      2                                                                                                                        
1      4      5                                                                                                                        
;                                                                                                                                       
run;                                                                                                                                    
data b;                                                                                                                                 
set a;                                                                                                                                 
if y1 = . and y2=. and y3=. then tp=.;                                                                                                  
else if y1 = y2 =y3 then tp =1;                                                                                                         
else if y1=y2=. or y2=y3=. or y3=y1=. then tp =1;                                                                                       
else if y1=y2 and y3=. or y2=y3 and y1=. or y3=y1 and y2=. then tp =1;                                                                  
else if y1 = y2  or y2 = y3 or y3 = y1 then tp =2;                                                                                      
else if y1 ne y2 ne y3 and y1 ne . and y2 ne . and y3 ne . then tp =3;                                                                  
else if y1 ne . or y2 ne . or y3 ne . then tp =2;                                                                                       
run;