对变量ID进行顺序编号

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有这样一个数据集a
[td]

Obs	id
1	a
2	a
3	a
4	b
5	b
6	c
7	c
8	c
9	c
10	d

想对id每个组内进行顺序编号，变成如下效果：
[td]

Obs	id	i
1	a	1
2	a	2
3	a	3
4	b	1
5	b	2
6	c	1
7	c	2
8	c	3
9	c	4
10	d	1

请问各位大神，有什么代码可以办到吗？

我尝试了用do until(last.id); i+1;，老是出现死循环。

     

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：until Last obs BSI sid

有大神知道吗，求帮助

用retain语句

1. data X1;
   
2. INPUT  
   
3. Obs 4.0         id$2.        i 4.0;
   
4. cards;
   
5. 1        a        1
   
6. 2        a        2
   
7. 3        a        3
   
8. 4        b        1
   
9. 5        b        2
   
10. 6        c        1
    
11. 7        c        2
    
12. 8        c        3
    
13. 9        c        4
    
14. 10        d        1
    
15. ;
    
16. RUN;
    
17. 
    
18. DATA X2;
    
19. SET X1;
    
20. DROP I;
    
21. RUN;
    
22. 
    
23. PROC SORT DATA=X2;
    
24. BY ID;
    
25. RUN;
    
26. 
    
27. DATA X3;
    
28. SET X2;
    
29. by id;
    
30. IF FIRST.ID  THEN DO ;
    
31.            i=1;
    
32.                    END ;
    
33. IF NOT FIRST.ID THEN DO;
    
34.          retain i;
    
35.          i=i+1;
    
36.                   end;
    
37. run;

复制代码

假设数据集a存储在临时逻辑库work中，则如下代码可以解决你的问题。
proc sort data=work.a;
   by id;
run;

data work.a;
   set work.a;
   by id;
   retain i;
   if first.id then i=1
   i = i + 1;
run;

GLY4030 发表于 2018-7-7 15:40
假设数据集a存储在临时逻辑库work中，则如下代码可以解决你的问题。
proc sort data=work.a;
   by id;

有个小错误

"假设数据集a存储在临时逻辑库work中，则如下代码可以解决你的问题。
proc sort data=work.a;
   by id;
run;

data work.a;
   set work.a;
   by id;
   retain i;
   if first.id then i=0
   i = i + 1;
run;"