菜鸟问两个简单的SAS编程问题，涉及dataset转换，多谢指教！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. 现有dataset如下，假设已经按照id和code排好序而且去除了code的重复值（其实去不去重是不是无所谓？）

id	code
101	1
101	3
101	6
102	2
102	4
103	2
103	3
103	5
103	8

希望转换成如下格式，新dataset对于id是unique的，新建变量a1到a8，如果对于同一个id，变量code的value中出现了某个数值n，则对应an=1，否则为0.

id	a1	a2	a3	a4	a5	a6	a7	a8
101	1	0	1	0	0	1	0	0
102	0	1	0	1	0	0	0	0
103	0	1	1	0	1	0	0	1

2. 现有dataset如下，code1-code5全部是字符型变量

id	code1	code2	code3	code4	code5
101	101	a235	0	0	0
101	49	v86	0	0	0
101	663	0	0	0	0
102	v86	237	0	0	0
102	v86	aaa	bbb	0	0
103	c63	9	0	0	0
103	45	0	0	0	0
103	666	0	0	0	0
103	a72	0	0	0	0

希望建立一个unique id的dataset，新建变量flag_v86，对于同一个id，如果v86在code1-code5中出现至少一次，则flag_v86=1，否则为0。

	flag_v86
101	1
102	1
103	0

我想任务并不难，可能是用retain和if.first, if.last语句，但我自己写不出来。恳请大家指教，多谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：dataset sas编程问题 SAS编程 DataS Data 而且 新建 最好

第一个问题

1. data a;
   
2. input id        code @@;
   
3. cards;
   
4. 101 1
   
5. 101 3
   
6. 101 6
   
7. 102 2
   
8. 102 4
   
9. 103 2
   
10. 103 3
    
11. 103 5
    
12. 103 8
    
13. ;
    
14. run;
    
15. proc freq data=a;
    
16. table id*code/nopct norow nocol out=b;
    
17. run;
    
18. proc transpose data=b out=c prefix=s ;
    
19. var count;
    
20. by id ;
    
21. id code;
    
22. run;
    
23. data c;set c;drop _name_ _label_; run;

复制代码

crazygoing 发表于 2014-9-30 10:04
第一个问题

多谢解答！能否不用proc步，仅用data步完成？

merge a(where=( a1=1) rename=(code=a1))
     a(where=( a2=2) rename=(code=a2))
     ... ...
     a(where=( a8=8) rename=(code=a8));  
  by id;
run;
???
我用不好transpose  一直写data步。。。

update:还得把.改成0；非.改成1...

第二个问题

1. data a;
   
2. input id code1 $         code2$        code3 $        code4 $        code5 $ @@;
   
3. cards;
   
4. 101 101        a235        0        0        0
   
5. 101 49        v86        v86        0        0
   
6. 101 663        0        0        0        0
   
7. 102 v86        237        0        0        0
   
8. 102 v86        aaa        bbb        0        0
   
9. 103 c63        9        0        0        0
   
10. 103 45        0        0        0        0
    
11. 103 666        0        0        0        0
    
12. 103 a72        0        0        0        0
    
13. ;
    
14. run;
    
15. 
    
16. data b;set a;
    
17. count=0;
    
18. array ss{5} code1-code5;
    
19. do i=1 to 5;
    
20. if         ss[i]="v86" then count=count+1;
    
21. end;
    
22. keep id count;
    
23. if count>1 then count=1;
    
24. run;
    
25. proc sort data=b out=c ;
    
26. by id  descending count ;
    
27. run;
    
28. proc sort data=c out=c nodupkey;
    
29. by id ;
    
30. run;

复制代码

noyazz 发表于 2014-9-30 10:17
多谢解答！能否不用proc步，仅用data步完成？

只用data步我不会，不过根据三楼的思路，可以利用macro建立循环data步，省点代码。

1. proc transpose data=a out=t_a;
   
2.   var code;
   
3.   by id;
   
4.   id code;
   
5. run;
   
6. 
   
7. data final;
   
8.   set t_a;
   
9.   array _ _1-_8 ;
   
10.   array n n1-n8;
    
11.   do over n;
    
12.     if _=. then n=0;
    
13.     else n=1;
    
14.   end;
    
15.   drop _:;
    
16. run;

复制代码

感谢分享                                                                        
                                       
                                                     
                                                     
                                             
                                                                 
                                                                                 

Question 2:

1. data a1;
   
2.   set a;
   
3.   array code code1-code5;
   
4.   do over code;
   
5.     if code='v86' then flag_v86=1;
   
6.     else if flag_v86 ne 1 then flag_v86=0;
   
7.   end;
   
8.   drop code:;
   
9. run;
   
10. 
    
11. proc sort data=a1;
    
12.   by id flag_v86;
    
13. run;
    
14. 
    
15. data final;
    
16.   set a1;
    
17.     by id flag_v86;
    
18.   if last.id;
    
19. run;

复制代码

谢谢大家的解答！求用array retain和if first/if last相结合的方法，同事不喜欢用proc transpose，我得配合...