公司+年 结构数据 重新编排 与编号

我的数据结构是这样的：

1. data b;
   
2. set a;
   
3. by firm year;
   
4. if first.firm then sum=0;
   
5. if export=0 then sum+1;
   
6. if sum=0 then delete;
   
7. run;
   
8. data c;
   
9. set b(drop=sum);
   
10. by firm year;
    
11. if first.firm then sum=0;
    
12. if export^=0 then sum+1;
    
13. if sum=0 then delete;
    
14. run;
    
15. data d;
    
16. set c(drop=sum);
    
17. by firm year;
    
18. array aa{4} export1-export4;
    
19. export1=lag(export);
    
20. export2=lag2(export);
    
21. export3=lag3(export);
    
22. export4=lag4(export);
    
23. do i=1 to 4;
    
24. if aa(i)=. then aa(i)=0;
    
25. if i>t then aa(i)=0;
    
26. end;
    
27. if first.firm then do; t=1;
    
28.   exit=0;export1=0;export2=0;export3=0;export4=0;
    
29. end;
    
30. else t+1;
    
31. if export1*export2^=0 and export=0 then exit=1;
    
32. else if export=0 and export1=0 and export2=0 and export3^=0 and export4=0 then exit=1;
    
33. else exit=0;
    
34. if export2*export3^=0 and export=0 then delete;
    
35. if export3*export4^=0 and export=0 then delete;
    
36. if export=0 and export1=0 and export2=0 and export3=0 then delete;
    
37. run;
    
38. data e;
    
39. set d(keep=firm year export exit);
    
40. by firm year;
    
41. exit1=lag(exit);
    
42. if first.firm then group_in_firm=1;
    
43. if exit1-exit=1 then group_in_firm+1;
    
44. run;
    
45. data f;
    
46. set e(drop=exit1);
    
47. by firm group_in_firm;
    
48. if first.group_in_firm then num_in_group=1;
    
49. else num_in_group+1;
    
50. run;

复制代码

谢谢大神指教，我再检查一下，好心人 太多， 膜拜高手！！！

mingfeng07 发表于 2015-2-6 00:14

这个厉害了 看了半天 可是export连续超过4个0适用吗？感觉手动lag4总是不妥

sushe1527 发表于 2015-2-6 10:17
这个厉害了 看了半天 可是export连续超过4个0适用吗？感觉手动lag4总是不妥

恩，确实太粗糙了，所以只适用题中的条件，至于超过4个0，因为首先是考虑连续连个export大于0，然后再考虑连续首次3个0的情况，而3个0后面不管连续多少个0都不会考虑，我是直接删去，所以应该不会影响，可以调试一下看看。

一直受不了那么多汉字

mingfeng07 发表于 2015-2-6 12:26
恩，确实太粗糙了，所以只适用题中的条件，至于超过4个0，因为首先是考虑连续连个export大于0，然后再考虑 ...

连续 4 个0， 没有BUG， 3个0 之后的 0 删除了， 直至 搜索到下一个 正数。