求教一下，感激不尽。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

假设下面数据

x   y
1   3
2   4
5   8
6   9；

由于变量x中不存在4，当我们定位4的时候，在找不到数据的情况下，怎么让sas自动找比4大1的数，也就是5所对应的y的值。。。。。求教。。。。。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：感激不尽 不存在

建个dummy数据集

1. 
   
2. data a;
   
3. input x y;
   
4. cards;
   
5. 1   3
   
6. 2   4
   
7. 5   8
   
8. 6   9
   
9. ;
   
10. proc sort;by x;
    
11. run;
    
12. proc sql noprint;
    
13. select min(x) into :min from a;
    
14. select max(x) into :max from a;
    
15. quit;
    
16. 
    
17. data dummy;
    
18. do x=&min to &max;
    
19. output;
    
20. end;
    
21. run;
    
22. 
    
23. data b;
    
24. merge dummy(in=a) a(in=b);
    
25. by x;
    
26. if a and not b then flag=1;
    
27. run;
    
28. proc sort data=b;by descending x;run;
    
29. 
    
30. data c;
    
31. set b;
    
32. retain oo;
    
33. if y ne . then oo=y;
    
34. if y=. then y=oo;
    
35. drop oo;
    
36. proc sort;by x;
    
37. run;

复制代码

/*创建原始数据*/
data        tmp;
        infile datalines;
        input x y;
datalines;
1 3
2 4
5 8
6 9
;
run;


/*获取x值最大值，用于循环*/
proc sql noprint;
        select max(x) into : mx
          from tmp;
quit;
%put &mx.;

/*倒序的作用，可以方便使用lag函数提取上个观测的值*/

/*tmp_1 创建完整的 x 值*/
data        tmp_1;
        do x=%eval(&mx.) to 1 by -1;
                output;
        end;
run;
proc sort data=tmp_1;by descending x;run;
proc sort data=tmp;by descending x;run;

/*如果碰到缺失值，就去上个值对应的Y值*/
data        out;
  merge tmp_1(in=a)
                  tmp(in=b);
         by descending x;
         if a;
retain e;
                 e=coalesce(lag(y),e);
         if y=. then
                 y=e;
   drop e;
run;