悬赏---随访数据整理

有如下随访数据，ID代表对象id号，follow代表随访次，sb=2代表发病，sb=1代表没有发病

ID	follow	sb	sbday
1001	1	1	2010-3-1
1002	1	1	2010-3-1
1002	2	1	2010-6-1
1003	1	1	2010-3-1
1003	2	1	2010-6-1
1003	3	2	2010-9-1
1004	1	1	2010-3-1
1004	2	2	2010-6-1
1004	3	2	2010-9-1
1004	4	2	2010-12-1

先在要求整理数据成如下：如果随访没有发病的（SB=1），则取最后一次随访记录的数据，如果随访发病的(SB=2），则取首次发病数据，整理好数据如下，SAS程序怎样实现？

ID	follow	sb	sbday
1001	1	1	2010-3-1
1002	2	1	2010-6-1
1003	3	2	2010-9-1
1004	2	2	2010-6-1

1. data raw;
   
2. input D follow sb sbday;
   
3. informat sbday yymmdd.;
   
4. format sbday yymmdd10.;
   
5. cards;
   
6. 1001 1 1 2010-3-1
   
7. 1002 1 1 2010-3-1
   
8. 1002 2 1 2010-6-1
   
9. 1003 1 1 2010-3-1
   
10. 1003 2 1 2010-6-1
    
11. 1003 3 2 2010-9-1
    
12. 1004 1 1 2010-3-1
    
13. 1004 2 2 2010-6-1
    
14. 1004 3 2 2010-9-1
    
15. 1004 4 2 2010-12-1
    
16. ;
    
17. 
    
18. proc sort data=test;
    
19. by D follow;
    
20. run;
    
21. 
    
22. data final;
    
23. set raw;
    
24. by D follow;
    
25. if first.D then flag=.;
    
26. if sb = 2 then flag+1;
    
27. if last.D and flag=. or flag=1 then output;
    
28. drop flag;
    
29. run;

复制代码

为啥子不能删除呢。。

谢谢guoluo，已经解决。

1. data original;
   
2. input id follow sb;
   
3. cards;
   
4. 1001 1 1
   
5. 1002 1 1
   
6. 1002 2 1
   
7. 1003 1 1
   
8. 1003 2 1
   
9. 1003 3 2
   
10. 1004 1 1
    
11. 1004 2 2
    
12. 1004 3 2
    
13. 1004 4 2
    
14. ;
    
15. run;
    
16. 
    
17. proc sort;by id sb;run;
    
18. 
    
19. data final;
    
20. set original;
    
21. by id sb;
    
22. if first.sb and sb=2 then output;
    
23. else if last.id and sb ne 2 then output;
    
24. run;

复制代码

事实上楼上的程序更严谨，谢谢了，请看以下程序就明白。
假如某对象已经发病，但是继续是否，随访的又没有再发病，3楼程序会出错，导致多选，楼上不会。

data original;
input ID follow sb sbday;
informat sbday yymmdd.;
format sbday yymmdd10.;
cards;
1001 1 1 2010-3-1
1002 1 1 2010-3-1
1002 2 1 2010-6-1
1003 1 1 2010-3-1
1003 2 1 2010-6-1
1003 3 2 2010-9-1
1003 4 1 2010-11-1
1004 1 1 2010-3-1
1004 2 2 2010-6-1
1004 3 2 2010-9-1
1004 4 2 2010-12-1
;
run;

proc sort;by id sb;run;

data final1;
set original;
by id sb;
if first.sb and sb=2 then output;
else if last.id and sb ne 2 then output;
run;

proc print data=final1; run;

Rock2000 发表于 2011-8-31 22:43
事实上楼上的程序更严谨，谢谢了，请看以下程序就明白。
假如某对象已经发病，但是继续是否，随访的又没有 ...

最好再把follow或者日期用by排序一下，by id sb follow，否则如果原表是乱序的也会出问题的，按顺序排好就行了