sas怎样实现行与行之间的计算？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

课堂上的一道题，求每个人与他身高最近的人，并在后面输出姓名，数据集附在下面：

一种思路 数据集自己拼接，删掉姓名相同的记录，按name分组，having  diff=min(diff),

当时我第一想法是排序，算出一条记录height与前后的差值在进行比较，一直没弄出来，求助！

第一个思路的代码，传图片了，第一次发帖，新手勿喷，谢谢。

Name    Height
Joyce    51.3
Louise    56.3
Alice    56.5
James    57.3
Thomas    57.5
John    59
Jane    59.8
Jeffrey    62.5
Carol    62.8
Henry    63.5
Judy    64.3
Janet    64.5
Robert    64.8
Barbara    65.3
Mary    66.5
William    66.7
Ronald    67
Alfred    69
Philip    72

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Jeffrey William Barbara Alfred having having 图片 记录 课堂 拼接

1. data test;
   
2. input Name $ Height;
   
3. cards;
   
4. Joyce 51.3
   
5. Louise 56.3
   
6. Alice 56.5
   
7. James 57.3
   
8. Thomas 57.5
   
9. John 59
   
10. Jane 59.8
    
11. Jeffrey 62.5
    
12. Carol 62.8
    
13. Henry 63.5
    
14. Judy 64.3
    
15. Janet 64.5
    
16. Robert 64.8
    
17. Barbara 65.3
    
18. Mary 66.5
    
19. William 66.7
    
20. Ronald 67
    
21. Alfred 69
    
22. Philip 72
    
23. ;
    
24. run;
    
25. 
    
26. proc sort data=test;by height;run;
    
27. 
    
28. data a;
    
29.         set test;
    
30.         dif1=dif(height);
    
31.         name1=lag(name);
    
32. run;
    
33. 
    
34. data want;
    
35.         length name $8 height 8 close $8;
    
36.         merge a a(keep=dif1 name rename=(dif1=dif2 name=name2) firstobs=2);
    
37.         if missing(dif1) | dif1>dif2>. then close=name2;
    
38.         else close=name1;
    
39.         keep name height close;
    
40. run;

复制代码

非常感谢 ，已经解决问题。

有一个小小问题

1. data want;
   
2.         length name  8height8close8 height 8 close 8;
   
3.         merge a a(keep=dif1 name rename=(dif1=dif2 name=name2) firstobs=2);
   
4.         if missing(dif1) | dif1>dif2>. then close=name2;
   
5.         else close=name1;
   
6.         keep name height close;
   
7. run;

复制代码

[img][/img]

我把后面稍微改了改

1. data b;
   
2.         set a;
   
3.         keep dif1 name;
   
4.         rename dif1=dif2;
   
5.         rename name=name2;
   
6. run;
   
7. 
   
8. data want;
   
9.       
   
10.         merge a b (firstobs=2);
    
11.         if missing(dif1) | dif1>dif2>. then close=name2;
    
12.         else close=name1;
    
13.         keep name height close;
    
14. run;

复制代码

[img][/img]

请问这有什么差别吗？

孤单的我们 发表于 2016-9-14 12:57

直接复制出现这种情况

1. data a;
   
2. input Name $10.   Height;
   
3. cards;
   
4. Joyce     51.3
   
5. Louise    56.3
   
6. Alice     56.5
   
7. James     57.3
   
8. Thomas    57.5
   
9. John      59
   
10. Jane      59.8
    
11. Jeffrey   62.5
    
12. Carol     62.8
    
13. Henry     63.5
    
14. Judy      64.3
    
15. Janet     64.5
    
16. Robert    64.8
    
17. Barbara   65.3
    
18. Mary      66.5
    
19. William   66.7
    
20. Ronald    67
    
21. Alfred    69
    
22. Philip    72
    
23. ;
    
24. run;
    
25. 
    
26. 
    
27. proc sort data=a;
    
28.         by height;
    
29. run;
    
30. 
    
31. 
    
32. data b;
    
33.         set a end=eof;
    
34.         namelag=lag(Name);heightlag=lag(height);
    
35.         if not eof then do;
    
36.         pt=_n_+1;
    
37.         set a (rename=(Name=name1 height=height1)) point=pt;
    
38.         end;
    
39. run;
    
40. 
    
41. data c;
    
42.         length person $20;
    
43.         set b end=eof;
    
44.         if _n_=1 then person=name1;
    
45.         else if eof then person=namelag;
    
46.         else do;
    
47.         diff1=height-heightlag;
    
48.         diff2=height1-height;
    
49.         if diff1<diff2 then person=namelag;
    
50.         else if  diff1>diff2 then person=name1;
    
51.         else person=catx(',',namelag,name1);
    
52.         end;
    
53.         keep name height person;
    
54. run;

复制代码