怎样用下次记录填补前次记录

有以下数据

1. id name sex cishu marry
   
2. 1 张三  男  1     
   
3. 1 张三  男  2     未婚
   
4. 1 张三  男  3     已婚
   
5. 2 李四  女  1     
   
6. 2 李四  女  2     未婚

复制代码

想填补成以下数据，怎样实现？

1. id name sex cishu marry
   
2. 1 张三  男  1     未婚
   
3. 1 张三  男  2     未婚
   
4. 1 张三  男  3     已婚
   
5. 2 李四  女  1     未婚
   
6. 2 李四  女  2     未婚

复制代码

把上面的code改了一点.
如果需要还可以再 sort by name cishu 后重新运行这段程序。


proc sort data=a out=a_Dsort; by name descending cishu;
run;

data b;
   set a_Dsort;
   by name;
   retain marry1;
   if first.name then do;
      if marry ne " " then marry1=marry;
      else call missing(marry1);
   end;
   else do;
      if missing(marry) then marry = marry1;
      else marry1 = marry;
   end;  
   drop marry1;
run;

给一个n=_n_;
然后再sort by name descending n;
然后再retain就行了

弄一弄就行了，给你说这么清楚了

版主，是否这样？是否有更好的？

1. data a;
   
2. input id name$  sex$  cishu marry$ @@;
   
3. cards;
   
4. 1 张三  男  1     .
   
5. 1 张三  男  2     未婚
   
6. 1 张三  男  3     已婚
   
7. 2 李四  女  1     .
   
8. 2 李四  女  2     未婚
   
9. ;
   
10. run;
    
11. 
    
12. 
    
13. proc sort data=a; by name descending cishu;
    
14. run;
    
15. 
    
16. data b; set a;
    
17. by name descending cishu;
    
18. retain marry1;
    
19. missing marry;
    
20. if marry ne " " then marry1=marry;
    
21. else marry=marry1;
    
22. drop marry1;
    
23. run;
    
24. 
    
25. proc print data=b; run;
    
26. 
    

复制代码

以上程序还有问题，假如数据是如下缺失，王五的marry两次是缺失的。

1. 1 张三  男  1     .
   
2. 1 张三  男  2     未婚
   
3. 1 张三  男  3     已婚
   
4. 2 李四  女  1     .
   
5. 2 李四  女  2     未婚
   
6. 3 王五  男  1     .
   
7. 3 王五  男  2     .

复制代码

如果用上程序，则变成王五的marry不是缺失的，这样不对，运行后结果如下：

1. Obs    id    name    sex    cishu    marry
   
2. 
   
3. 1      2    李四    女       2      未婚
   
4. 2      2    李四    女       1      未婚
   
5. 3      3    王五    男       2      未婚
   
6. 4      3    王五    男       1      未婚
   
7. 5      1    张三    男       3      已婚
   
8. 6      1    张三    男       2      未婚
   
9. 7      1    张三    男       1      未婚

复制代码

谁帮忙修正王五的marry还是缺失的？

yongyitian 发表于 2013-8-17 13:48
把上面的code改了一点.
如果需要还可以再 sort by name cishu 后重新运行这段程序。

谢谢yongyitian，我把完整需求、程序代码贴上方便其他人验证，其他朋友也可以用其他方法实现。

1. /*有如下数据*/
   
2. /*id name sex cishu marry*/
   
3. /*1 张三  男  1     */
   
4. /*1 张三  男  2     未婚*/
   
5. /*1 张三  男  3     已婚*/
   
6. /*2 李四  女  1     */
   
7. /*2 李四  女  2     未婚*/
   
8. /*3 王五  男  1     .*/
   
9. /*3 王五  男  2     .*/
   
10. /**/
    
11. /*如何变成如下数据*/
    
12. /*id name sex cishu marry*/
    
13. /*1 张三  男  1     未婚*/
    
14. /*1 张三  男  2     未婚*/
    
15. /*1 张三  男  3     已婚*/
    
16. /*2 李四  女  1     未婚*/
    
17. /*2 李四  女  2     未婚*/
    
18. /*3 王五  男  1     .*/
    
19. /*3 王五  男  2     .*/
    
20. /**/
    
21. /*解决思路如下：1.以相同id或name（最好id，name有相同的）为单位进行操作；
    
22.                2.采用retain语句，保留相同ID的某变量的值，这里需降序排序。
    
23.   方法如下*/
    
24. 
    
25. data a;
    
26. input id name$  sex$  cishu marry$ @@;
    
27. cards;
    
28. 1 张三  男  1     .
    
29. 1 张三  男  2     未婚
    
30. 1 张三  男  3     已婚
    
31. 2 李四  女  1     .
    
32. 2 李四  女  2     未婚
    
33. 3 王五  男  1     .
    
34. 3 王五  男  2     .
    
35. ;
    
36. run;
    
37. 
    
38. 
    
39. proc sort data=a out=a_Dsort; by id descending cishu; /*以变量“ID”及“cishu”的降序(descending)排序*/
    
40. run;
    
41. 
    
42. data b;
    
43.    set a_Dsort;
    
44.    by id;
    
45.    retain marry1;
    
46.    if first.id then do;
    
47.       if marry ne " " then marry1=marry;
    
48.       else call missing(marry1);
    
49.    end;
    
50.    else do;
    
51.       if missing(marry) then marry = marry1;
    
52.       else marry1 = marry;
    
53.    end;
    
54.    drop marry1;
    
55. run;
    
56. 
    
57. proc print data=b; run;

复制代码

其实是不是LOCF结转法啊！