求助，如何分组给每组里面的数据编号

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助我的数据有人和月份，如果我想给每一个人（personid），然后他们月份相差不超过3个月就assign一个sequence number， 如果超过3个月就sequence number +1， 这样的loop怎么写啊。
比如我的数据是这样

我希望它变成这样

谢谢各位大神！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sequence Number Person assign sign SAS 求助！ sas 求助 SAS编程技术教程 SAS应用 SAS数据分析方法

claudiehuang 发表于 2021-2-13 13:53
求助我的数据有人和月份，如果我想给每一个人（personid），然后他们月份相差不超过3个月就assign一个seque ...

提供一个可能的思路，
如果表示年月的变量是文本格式的，可以截取后2位，然后分企业将月份值迭代相减，
再设置，如果这个差值等于多少，数值为几

1. data x1;
   
2. input personid 3.0  year_month $10.;
   
3. cards;
   
4. 1  199001
   
5. 1  199002
   
6. 1  199005
   
7. 1  199007
   
8. 1  199008
   
9. 1  199210
   
10. 1  199212
    
11. 1  199301
    
12. 1  199302
    
13. 2  199003
    
14. 2  199004
    
15. 2  199006
    
16. 2  199202
    
17. 2  199204
    
18. ;
    
19. run;
    
20. 
    
21. proc sort data =x1;
    
22. by personid  year_month;
    
23. run;
    
24. data x2;
    
25. set x1;
    
26. year_month1=lag(year_month);
    
27. month_diff=(substr(year_month,1,4)-substr(year_month1,1,4))*12+substr(year_month,5,2)-substr(year_month1,5,2);  
    
28. run;
    
29. 
    
30. data x3;
    
31. set x2;
    
32. retain seq ;
    
33. by personid;
    
34. if first.personid then seq=1;
    
35. if not first.personid and month_diff>=3 then seq=seq+1;
    
36. DROP year_month1 month_diff;
    
37. run;

复制代码

大神们拜托看一看~

1. data test;
   
2.   input personid x;
   
3. cards;
   
4. 1 199001
   
5. 1 199002
   
6. 1 199006
   
7. 1 199008
   
8. 2 199001
   
9. 2 199002
   
10. 2 199006
    
11. 2 199008
    
12. ;
    
13. run;
    
14. 
    
15. *假设你的数据已经按照id和x排序;
    
16. data test1;
    
17.    set test;
    
18.    by personid;
    
19.    if first.personid then seq=1;
    
20.    if abs(x - lag(x))>=3 then
    
21.       do;
    
22.          if first.personid then seq=1;
    
23.          else  
    
24.              do;
    
25.                seq +1;
    
26.                      end;
    
27.           end;
    
28. run;

复制代码

先按企业和时间排序，然后分企业把时间相减，得到相差的月份，然后按你的要求新生成变量，不用写循环代码吧，时间怎么相减可以再百度下

1. data x1;
   
2. input personid 3.0  year_month $10.;
   
3. cards;
   
4. 1  199001
   
5. 1  199002
   
6. 1  199005
   
7. 1  199007
   
8. 1  199008
   
9. 1  199210
   
10. 1  199212
    
11. 1  199301
    
12. 1  199302
    
13. 2  199003
    
14. 2  199004
    
15. 2  199006
    
16. 2  199202
    
17. 2  199204
    
18. ;
    
19. run;
    
20. 
    
21. proc sort data =x1;
    
22. by personid  year_month;
    
23. run;
    
24. data x2;
    
25. set x1;
    
26. year_month1=lag(year_month);
    
27. month_diff=(substr(year_month,1,4)-substr(year_month1,1,4))*12+substr(year_month,5,2)-substr(year_month1,5,2);  
    
28. run;
    
29. 
    
30. data x3;
    
31. set x2;
    
32. retain seq ;
    
33. by personid;
    
34. if first.personid then seq=1;
    
35. if not first.personid and month_diff>=3 then seq=seq+1;
    
36. DROP year_month1 month_diff;
    
37. run;

复制代码

1. data x1;
   
2. input personid 3.0  year_month $10.;
   
3. cards;
   
4. 1  199001
   
5. 1  199002
   
6. 1  199005
   
7. 1  199007
   
8. 1  199008
   
9. 1  199210
   
10. 1  199212
    
11. 1  199301
    
12. 1  199302
    
13. 2  199003
    
14. 2  199004
    
15. 2  199006
    
16. 2  199202
    
17. 2  199204
    
18. ;
    
19. run;
    
20. 
    
21. proc sort data =x1;
    
22. by personid  year_month;
    
23. run;
    
24. data x2;
    
25. set x1;
    
26. year_month1=lag(year_month);
    
27. month_diff=(substr(year_month,1,4)-substr(year_month1,1,4))*12+substr(year_month,5,2)-substr(year_month1,5,2);  
    
28. run;
    
29. 
    
30. data x3;
    
31. set x2;
    
32. retain seq ;
    
33. by personid;
    
34. if first.personid then seq=1;
    
35. if not first.personid and month_diff>=3 then seq=seq+1;
    
36. DROP year_month1 month_diff;
    
37. run;

复制代码

1. /*录入数据*/
   
2. data x1;
   
3. input personid 3.0  year_month $10.;
   
4. cards;
   
5. 1  199001
   
6. 1  199002
   
7. 1  199005
   
8. 1  199007
   
9. 1  199008
   
10. 1  199210
    
11. 1  199212
    
12. 1  199301
    
13. 1  199302
    
14. 2  199003
    
15. 2  199004
    
16. 2  199006
    
17. 2  199202
    
18. 2  199204
    
19. ;
    
20. run;
    
21. 
    
22. /*排序*/
    
23. proc sort data =x1;
    
24. by personid  year_month;
    
25. run;
    
26. 
    
27. /*计算月差month_diff*/
    
28. data x2;
    
29. set x1;
    
30. year_month1=lag(year_month);
    
31. month_diff=(substr(year_month,1,4)-substr(year_month1,1,4))*12+substr(year_month,5,2)-substr(year_month1,5,2);  
    
32. run;
    
33. 
    
34. /*retain语句 定义变量seq，1、首次出现personid时，seq=1；
    
35.                           2、非首次出现personid并且月差≥3时，seq自动增加1*/
    
36. data x3;
    
37. set x2;
    
38. retain seq ;
    
39. by personid;
    
40. if first.personid then seq=1;
    
41. if not first.personid and month_diff>=3 then seq=seq+1;
    
42. DROP year_month1 month_diff;
    
43. run;

复制代码

claudiehuang 发表于 2021-2-14 09:04
大神们拜托看一看~

1. /*录入数据*/
   
2. data x1;
   
3. input personid 3.0  year_month $10.;
   
4. cards;
   
5. 1  199001
   
6. 1  199002
   
7. 1  199005
   
8. 1  199007
   
9. 1  199008
   
10. 1  199210
    
11. 1  199212
    
12. 1  199301
    
13. 1  199302
    
14. 2  199003
    
15. 2  199004
    
16. 2  199006
    
17. 2  199202
    
18. 2  199204
    
19. ;
    
20. run;
    
21. 
    
22. /*排序*/
    
23. proc sort data =x1;
    
24. by personid  year_month;
    
25. run;
    
26. 
    
27. /*计算月差month_diff*/
    
28. data x2;
    
29. set x1;
    
30. year_month1=lag(year_month);
    
31. month_diff=(substr(year_month,1,4)-substr(year_month1,1,4))*12+substr(year_month,5,2)-substr(year_month1,5,2);  
    
32. run;
    
33. 
    
34. /*retain语句 定义变量seq，1、首次出现personid时，seq=1；
    
35.                           2、非首次出现personid并且月差≥3时，seq自动增加1*/
    
36. data x3;
    
37. set x2;
    
38. retain seq ;
    
39. by personid;
    
40. if first.personid then seq=1;
    
41. if not first.personid and month_diff>=3 then seq=seq+1;
    
42. DROP year_month1 month_diff;
    
43. run;

复制代码