怎样生成相同次数变量

数据如下
id        name       date                jy
0001  张三        2011-02-03     K
0001  张三        2011-02-03     Na
0001  张三        2011-02-03     Cl
0001  张三        2011-03-03     K
0001  张三        2011-03-03     Na
0001  张三        2011-03-03     Cl
0002 李四         2011-01-02    K
0002 李四         2011-01-02    Na
0002 李四         2011-04-02    Cl
0002 李四         2011-04-02    Na
要求：以ID（唯一）及Date相同者，生成次数变量（cishu），此次数变量相同，结果如下
id        name       date             cishu   jy
0001  张三        2011-02-03  1         K
0001  张三        2011-02-03  1         Na
0001  张三        2011-02-03  1        Cl
0001  张三        2011-03-03  2        K
0001  张三        2011-03-03  2        Na
0001  张三        2011-03-03  2          Cl
0002 李四         2011-01-02  1         K
0002 李四         2011-01-02  1       Na
0002 李四         2011-04-02  2       Cl
0002 李四         2011-04-02  2       Na

SAS程序怎样实现？

data a;
input id $4.  name $4. date $10. jy $2.;
cards;
0001张三2011-02-03K
0001张三2011-02-03Na
0001张三2011-02-03Cl
0001张三2011-03-03K
0001张三2011-03-03Na
0001张三2011-03-03Cl
0002李四2011-01-02K
0002李四2011-01-02Na
0002李四2011-04-02Cl
0002李四2011-04-02Na
;
run;
proc sort data=a;
by id data;
run;
data a;
set a;
by id date;
if first.id then cishu=1;
if first.id^=1 and first.date then cishu+1;
run;

用first 和last 对时间做

data a;
input id $4.  name $4. date $10. jy $2.;
cards;
0001张三2011-02-03K
0001张三2011-02-03Na
0001张三2011-02-03Cl
0001张三2011-03-03K
0001张三2011-03-03Na
0001张三2011-03-03Cl
0002李四2011-01-02K
0002李四2011-01-02Na
0002李四2011-04-02Cl
0002李四2011-04-02Na
;
run;
proc sort data=a;
by id data;
run;
data a;
set a;
by id date;
if first.id then cishu=1;
if first.id^=1 and first.date then cishu+1;
run;

1. data a;
   
2. input id $4.  name $4. date $10. jy $2.;
   
3. cards;
   
4. 0001张三2011-02-03K
   
5. 0001张三2011-02-03Na
   
6. 0001张三2011-02-03Cl
   
7. 0001张三2011-03-03K
   
8. 0001张三2011-03-03Na
   
9. 0001张三2011-03-03Cl
   
10. 0002李四2011-01-02K
    
11. 0002李四2011-01-02Na
    
12. 0002李四2011-04-02Cl
    
13. 0002李四2011-04-02Na
    
14. ;
    
15. run;
    
16. data result2;
    
17.   do _n_=1 by 1 until(last.id);
    
18.     set a;
    
19.         by id;
    
20.     if _n_=1  then cishu=1;
    
21.    else cishu=ifn(date=lag_date,cishu,cishu+1);
    
22.    lag_date=date;
    
23.    output;
    
24.   end;
    
25. run;
    
26.   

复制代码

就是这样做的