根据规则删除对应观测b

删除规则为  如果同样一个name，如果在不同institution出现的时间有交叉，时间初始与结束点重合不算，那么则将该name对应的观测删除掉。如张三，脸书对应的最后日期为2015 4 ，而华为最开始对应时间是2015 3 存在交叉  ， 所以删掉张三。

name	year	qtr	institution	sex
张三	2013	1	微软	男
张三	2013	3	微软	男
张三	2013	3	脸书	男
张三	2014	3	脸书	男
张三	2015	4	脸书	男
张三	2015	3	华为	男
张三	2015	4	华为	男
李四	2015	1	联合利华	女
李四	2015	3	联合利华	女
李四	2015	3	保洁	女
王五	2014	4	华为	男

1. data tmp;
   
2. input name$  year qtr institution$ sex$;
   
3. cards;
   
4. 张三 2013 1        微软         男
   
5. 张三 2013 3        微软         男
   
6. 张三 2013 3        脸书         男
   
7. 张三 2014 3        脸书         男
   
8. 张三 2015 4        脸书         男
   
9. 张三 2015 3        华为         男
   
10. 张三 2015 4        华为         男
    
11. 李四 2015 1        联合利华        女
    
12. 李四 2015 3        联合利华        女
    
13. 李四 2015 3        保洁         女
    
14. 王五 2014 4        华为         男
    
15. ;
    
16. run;
    
17. 
    
18. proc sort data=tmp;
    
19. by name institution year qtr;
    
20. run;
    
21. data tmp2;
    
22. set tmp;
    
23. retain min_year;
    
24. retain min_qtr;
    
25. retain max_year;
    
26. retain max_qtr;
    
27. by name institution;
    
28. if first.institution then
    
29. do ;
    
30. min_year=year;
    
31. min_qtr=qtr;
    
32. end;
    
33. if last.institution then
    
34. do;
    
35.   max_year=year;
    
36.   max_qtr=qtr;
    
37. end;
    
38. if last.institution then output;
    
39. run;
    
40. proc sort data=tmp2;
    
41. by name min_year min_qtr;
    
42. run;
    
43. data tmp3;
    
44. set tmp2;
    
45. lag_year=lag1(max_year);
    
46. lag_qtr=lag1(max_qtr);
    
47. run;
    
48. data tmp4(keep=name) ;
    
49. set tmp3;
    
50. retain flg;
    
51. retain tot;
    
52. by name;
    
53. if first.name then
    
54. do;
    
55.   flg=1;
    
56.   tot=1;
    
57. end;
    
58. else
    
59. do;
    
60.   tot=tot+1;
    
61.   if (lag_year<=min_year and lag_qtr<=min_qtr) or lag_year<min_year  then flg=flg+1;
    
62. end;
    
63. if last.name then
    
64. do;
    
65.   if tot=flg then output;
    
66. end;
    
67. run;
    
68. proc sql noprint;
    
69. create table result as select * from tmp,tmp4 where tmp.name=tmp4.name;
    
70. quit;
    
71. proc print data=result;
    
72. run;

复制代码

要生成每个INSTITUTION 的START DATE & ENDDATE,做成 张三  2013-1-1   2013-9-30 微软这种数据格式，如果按照START DATE SORT，用START DATE和上一个 INSTIUTION 的 ENDDATE比较，如果STDATE>=LAG(ENDDATE)，则保留，否则可以设置FLAG=1，把FLAG=1的NAME（nodupkey）跳出来merge回去，最后跳出非FLAG=1的记录就可以

wang1839 发表于 2017-3-20 21:47
要生成每个INSTITUTION 的START DATE & ENDDATE,做成 张三  2013-1-1   2013-9-30 微软这种数据格式，如果按 ...

谢谢    很巧妙