sas中分类剔除某类变量中某时间点之前的记录

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在sas中如何实现，剔除某个id中某一时间点之前的记录，所有id中都要进行剔除。比如id    time               mark
a    2011-1-1        .
a    2011-2-1        .
a    2011-3-1        1
a    2011-4-1        .
a    2011-5-1        1
b    2011-2-1        .
b    2011-3-1        1
b    2011-4-1        .
b    2011-5-1        1


想要得到以下数据，即Mark中第一次有1出现的每个id之后的记录
id    time               mark
a    2011-3-1        1
a    2011-4-1        .
a    2011-5-1        1

b    2011-3-1        1
b    2011-4-1        .
b    2011-5-1        1

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Mark time 如何实现 Mar Tim 记录

1. data a;
   
2. input id $1. time $10. mark 8.  @;
   
3. cards;
   
4. a 2011-1-1 .
   
5. a 2011-2-1 .
   
6. a 2011-3-1 1
   
7. a 2011-4-1 .
   
8. a 2011-5-1 1
   
9. b 2011-2-1 .
   
10. b 2011-3-1 1
    
11. b 2011-4-1 .
    
12. b 2011-5-1 1
    
13. c 2012-3-1 .
    
14. c 2013-12-1 1
    
15. c 2012-5-1 .
    
16. ;
    
17. run;
    
18. 
    
19. data b;
    
20. set a;
    
21. tim=input(time,anydtdte.);
    
22. format tim date9.;
    
23. proc sort;by id time;
    
24. run;
    
25. data c;
    
26. set b;
    
27. by id tim;
    
28. retain mm;
    
29. if mark=1 then mm=1;
    
30. if first.id and mark=. then mm=0;
    
31. if mm ne 0;
    
32. run;

复制代码

1. data aa;
   
2. informat time yymmdd10.;
   
3. input id$ time mark;
   
4. format time yymmdd10.;
   
5. cards;
   
6. a    2011-01-01        .
   
7. a    2011-02-01        .
   
8. a    2011-03-01        1
   
9. a    2011-04-01        .
   
10. a    2011-05-01        1
    
11. b    2011-02-01        .
    
12. b    2011-03-01        1
    
13. b    2011-04-01        .
    
14. b    2011-05-01        1
    
15. c    2011-06-02        .
    
16. c    2011-06-03        .
    
17. c    2011-07-01        1
    
18. c    2011-08-01        .
    
19. c    2011-09-01        1
    
20. ;
    
21. 
    
22. proc sql noprint;
    
23. select count(distinct id)
    
24.       Into :N
    
25.       from aa;
    
26. select distinct id
    
27.       into :type1-:type%left(&N)  
    
28.       from aa;
    
29. quit;
    
30. 
    
31. %macro split;
    
32. 
    
33. %do i=1 %to &N;
    
34. 
    
35. /*安照条件分割输出数据集*/
    
36. data id_&&type&i;
    
37. set aa;
    
38. if id="&&type&i" then output id_&&type&i;
    
39. run;
    
40. 
    
41. /*对每一个数据集进行retain函数复制值的应用*/
    
42. data id_&&type&i;
    
43. retain mark1;
    
44. set id_&&type&i;
    
45. if mark ^=. then mark1=mark;/*forward copy*/
    
46. if mark1=1;
    
47. run;
    
48. 
    
49. /*合并数据集*/
    
50. data aaa;

复制代码

1. data aa;
   
2. informat time yymmdd10.;
   
3. input id$ time mark;
   
4. format time yymmdd10.;
   
5. cards;
   
6. a    2011-01-01        .
   
7. a    2011-02-01        .
   
8. a    2011-03-01        1
   
9. a    2011-04-01        .
   
10. a    2011-05-01        1
    
11. b    2011-02-01        .
    
12. b    2011-03-01        1
    
13. b    2011-04-01        .
    
14. b    2011-05-01        1
    
15. c    2011-06-02        .
    
16. c    2011-06-03        .
    
17. c    2011-07-01        1
    
18. c    2011-08-01        .
    
19. c    2011-09-01        1
    
20. ;
    
21. 
    
22. proc sql noprint;
    
23. select count(distinct id)
    
24.       Into :N
    
25.       from aa;
    
26. select distinct id
    
27.       into :type1-:type%left(&N)  
    
28.       from aa;
    
29. quit;
    
30. 
    
31. %macro split;
    
32. 
    
33. %do i=1 %to &N;
    
34. 
    
35. /*安照条件分割输出数据集*/
    
36. data id_&&type&i;
    
37. set aa;
    
38. if id="&&type&i" then output id_&&type&i;
    
39. run;
    
40. 
    
41. /*对每一个数据集进行retain函数复制值的应用*/
    
42. data id_&&type&i;
    
43. retain mark1;
    
44. set id_&&type&i;
    
45. if mark ^=. then mark1=mark;/*forward copy*/
    
46. if mark1=1;
    
47. run;
    
48. 
    
49. %end;

复制代码

之前已经解决，不过还是非常感谢您的帮助

请教是如何实现呢？