请教高手，如何增加识别变量？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教高手，如何增加识别变量？
想新增一个变量id：认别某公司是否在前一期存在，如果前一个月存在就设为1，不存在就设为0。
如下表：

date	company
200601	1001
200601	1009
200602	1001
200602	1009
200602	1010
200602	1080
200603	1002
200603	1008
200603	1009
200603	1010
200603	1020
200603	1040
200604	1001
200604	1008
200604	1020
…	…	…

想增加id来识别：

date	company	id
200601	1001	0
200601	1009	0
200602	1001	1
200602	1009	1
200602	1010	0
200602	1080	0
200603	1002	0
200603	1009	1
200603	1010	1
200603	1020	0
200604	1001	0
200604	1008	0
200604	1020	1
….	….	….

望高手指点一下！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：请教高手 company compan date comp 如何

我的错了，没有看到是前一个月的重复值。

1. data yourdset;
   
2.     input date $ company $;
   
3.         datalines;
   
4.         200601 1001
   
5.         200601 1009
   
6.         200602 1001
   
7.         200602 1009
   
8.         200602 1010
   
9.         200603 1080
   
10.         200603 1002
    
11.         200603 1009
    
12.         200603 1010
    
13.         200603 1020
    
14.         200603 1040
    
15.         200604 1001
    
16.         200604 1008
    
17.         200604 1020
    
18.         ;
    
19. run;
    
20. 
    
21. proc sort data=yourdset;
    
22.     by company date;
    
23. run;
    
24. 
    
25. data a;
    
26.     set yourdset;
    
27.         by company;
    
28.         date_=lag(date);
    
29.         if first.company=0 and input(date,8.)-input(date_,8.)=1 then id=1;
    
30.         else id=0;
    
31. run;

复制代码

非常感谢楼上的code ，但是 好像不对，没能识别出来。
原数据可以用这个
data aa;
  input date company;
  datalines;
200601 1001
200601 1009
200602 1001
200602 1009
200602 1010
200602 1080
200603 1002
200603 1009
200603 1010
200603 1020
200604 1001
200604 1008
200604 1020
;
run;
因为数据很大，只是摘了部分。楼上的code是否考虑了跨年的问题，比如次年1月的公司，要看它是否在前一年的12月就存在。还有，识别的id，只是看某公司是否在上一个月存在，而不是看它是否在以前存在。
希望 再指教！

1. data a;
   
2. input date  company ;
   
3. datalines;
   
4. 200601 1001
   
5. 200601 1009
   
6. 200602 1001
   
7. 200602 1009
   
8. 200602 1010
   
9. 200602 1080
   
10. 200603 1002
    
11. 200603 1008
    
12. 200603 1009
    
13. 200603 1010
    
14. 200603 1020
    
15. 200603 1040
    
16. 200604 1001
    
17. 200604 1008
    
18. 200604 1020
    
19. ;
    
20. run;
    
21. proc sort data=a;
    
22. by company;
    
23. run;
    
24. data b;
    
25. set a;
    
26. by company;
    
27. month=put(substr(left(date),5,2),8.);
    
28. if first.company = 0 and month-lag(month)=1 then id =1;
    
29. else id = 0;
    
30. drop month;
    
31. run;

复制代码

1. data yourdset;
   
2.   input date company;
   
3.   _date=input(catt(put(date,8.),'01'),yymmdd10.);
   
4.   format _date yymmdd10.;
   
5.   datalines;
   
6. 200601 1001
   
7. 200601 1009
   
8. 200602 1001
   
9. 200602 1009
   
10. 200602 1010
    
11. 200602 1080
    
12. 200603 1002
    
13. 200603 1009
    
14. 200603 1010
    
15. 200603 1020
    
16. 200604 1001
    
17. 200604 1008
    
18. 200604 1020
    
19. ;
    
20. run;
    
21. 
    
22. proc sort data=yourdset;
    
23.     by company _date;
    
24. run;
    
25. 
    
26. data a;
    
27.     set yourdset;
    
28.     by company;
    
29.     if first.company=0 and intck('month',lag(_date),_date)=1 then id=1;
    
30.     else id=0;
    
31. run;

复制代码

看看这个怎么样

1# funwin

1. 
   
2. DATA AA1;
   
3. SET AA;
   
4. N+1;
   
5. Fmon = INT(date/100)*12+(date-INT(date/100)*100);
   
6. RUN;
   
7. proc sort; by company Fmon N; run;
   
8. data final;
   
9. set AA1; by company;
   
10. D = DIF(Fmon);
    
11. ID = 0;
    
12. IF (NOT FIRST.company AND D = 1) THEN ID = 1;
    
13. DROP Fmon D;
    
14. run;
    
15. proc sort OUT = Final(DROP = N); by N; RUN;

复制代码

谢谢 各位的帮助 非常受益！
最后我还是选用了frackdeng 的code，确实用intck功能 方便许多 非常感谢！