SAS程序求教

现有数据
id        year
1          2001
1          2003
1         2005
2         2002
2         2004
2         2007
3         ...
上述数据的时间是不连续的，用SAS如何补充数据，让时间变量连续，例如个体1，现有时间的最大最小值为2005和2001，如何增加时间为2002和2004的数据，使时间变量连续?
感谢感谢！！
恳请给出具体程序，谢谢

写的很乱，应该有好的方法

1. data test;
   
2. input id year;
   
3. cards;
   
4. 1 2001
   
5. 1 2003
   
6. 1 2005
   
7. 2 2002
   
8. 2 2004
   
9. 2 2007
   
10. ;
    
11. run;
    
12. 
    
13. 
    
14. data test1;
    
15.         set test;
    
16.         by id year;
    
17.         dif=dif(year);
    
18. 
    
19.         output;
    
20.         if dif>1 then do;
    
21.                 do i=dif to 2 by -1;
    
22.                         year1=year-i+1;;output;
    
23.                 end;
    
24.         end;
    
25. run;
    
26. 
    
27. data test2;
    
28.         set test1;
    
29.         if year1>. then year=year1;
    
30.         keep id year;
    
31. run;
    
32. 
    
33. proc sort data=test2;by id year;run;

复制代码

顶，请大神帮忙

liuliuqiu 发表于 2016-4-18 13:16
顶，请大神帮忙

回复需要通过审核。今天总是酱紫

孤单的我们 发表于 2016-4-18 13:28
回复需要通过审核。今天总是酱紫

我等，非常感谢

options mprint symbolgen;

data test;
    input id year;
cards;
1 2001
1 2003
1 2005
2 2002
2 2004
2 2007
;
run;

proc sort data=test out=test;
    by id year;
run;

proc print; run;

proc sql;
    create table test1 as
    select id, min(year) as ymin, max(year) as ymax from test
    group by id
    order by id;
quit;

data test2;
    set test1;
    year = ymin;
    do while(year ge ymin and year le ymax);
         output;
         year + 1;
    end;
run;

proc print; run;

output:

                                          The SAS System          22:58 Sunday, April 17, 2016   1

                                        Obs    id    year

                                         1      1    2001
                                         2      1    2003
                                         3      1    2005
                                         4      2    2002
                                         5      2    2004
                                         6      2    2007
                                          The SAS System          22:58 Sunday, April 17, 2016   2

                                Obs    id    ymin    ymax    year

                                  1     1    2001    2005    2001
                                  2     1    2001    2005    2002
                                  3     1    2001    2005    2003
                                  4     1    2001    2005    2004
                                  5     1    2001    2005    2005
                                  6     2    2002    2007    2002
                                  7     2    2002    2007    2003
                                  8     2    2002    2007    2004
                                  9     2    2002    2007    2005
                                 10     2    2002    2007    2006
                                 11     2    2002    2007    2007

给我来个email：omnitiger@gmail.com

1. data test;
   
2. input id year;
   
3. cards;
   
4. 1 2001
   
5. 1 2003
   
6. 1 2005
   
7. 2 2002
   
8. 2 2004
   
9. 2 2007
   
10. ;
    
11. run;
    
12. 
    
13. 
    
14. data test1;
    
15.         set test;
    
16.         by id year;
    
17.         dif=dif(year);
    
18.         output;
    
19.         if dif>1 then do;
    
20.                 do i=dif to 2 by -1;
    
21.                         year1=year-i+1;;output;
    
22.                 end;
    
23.         end;
    
24. run;
    
25. 
    
26. data test2;
    
27.         set test1;
    
28.         if year1>. then year=year1;
    
29.         keep id year;
    
30. run;
    
31. 
    
32. proc sort data=test2;by id year;run;

复制代码

或者用宏

data test;
input id year;
cards;
1 2001
1 2003
1 2005
2 2002
2 2004
2 2007
;
run;

proc sql noprint;
        create table sort as
        select distinct id,max(year) as max,min(year) as min from test group by id;
quit;

data _null_;
        set sort;
        call symputx('nobs',_n_);
        call symputx('id'||strip(put(_n_,best.)),_n_);
        call symputx('max'||strip(put(_n_,best.)),max);
        call symputx('min'||strip(put(_n_,best.)),min);
run;
%macro test;
data want;
        retain id;
        %do i=1 %to &nobs;
                id=&&id&i;
                %do j=&&min&i %to &&max&i;
                year=&j;output;
        %end;
        %end;
run;
%mend;
%test;