怎样拿出一个观测和那个观测的上一个和下一个观测?

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想请教论坛朋友怎样拿出所有“haha” 观测和“haha”观测的上一个和下一个观测(备注：如果“haha" 出现在第一个或最后一个观测怎么办）? 比如：

obs    name
1        5
2        7
3        haha
4        0
5        
6        6
7        4
8        3
9        haha
...        ...

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：name 最后一个 obs 怎么办 观测

data _null_;
set a;
where name="haha";
call symput("obs",obs);
run;
%let obs1=%eval(&obs-1);
%let obs2=%=%eval(&obs+1);
data b;
set a;
where obs in(&obs1,&obs,&obs2);
run;

但是有几百个"haha" 2# wb8686

1. data test;
   
2.   input name $5.;
   
3.   obs + 1;
   
4. cards;
   
5. haha
   
6. haha
   
7. haha
   
8. 0
   
9. 
   
10. 6
    
11. haha
    
12. 5
    
13. 4
    
14. 3
    
15. haha
    
16. ;
    
17. 
    
18. proc sort data=test;
    
19.   by obs;
    
20. proc sort data=test out=test2;
    
21.   by descending obs;
    
22. run;
    
23. 
    
24. data haha(keep=obs name);
    
25.   set test(in=a) test2(in=b);
    
26.   lag_name = lag(name);
    
27.   if a then do;
    
28.     if name = 'haha' or lag_name = 'haha' then output;
    
29.   end;
    
30.   if b then do;
    
31.     if lag_name = 'haha' and name ^= 'haha' then output;
    
32.   end;
    
33. run;
    
34. 
    
35. proc sort data=haha;
    
36.   by obs;
    
37. run;

复制代码

自连吧，obs_no +1或者-1等于 haha 的obs_no......

data a;
input obs    name$;
cards;
1        5
2        7
3        haha
4        0
5        
6        6
7        4
8        3
9        haha
10        1
11        23
12         23
13       haha
14        14
;
run;
proc  sql;
select count(*) into:nbr_haha from a
where name="haha";
select obs into:obs1-:obs%left(&nbr_haha) from a
where name="haha";
quit;
%put &nbr_haha &obs2;
%macro a;
data b;
%do i=1 %to &nbr_haha;
set a;
where obs in(%eval(&&obs&i-1),&&obs&i,%eval(&&obs&i+1));
output;
%end;
run;
%mend;
%a
proc sort data=b;
by obs;
run;

Thanks guys!

这个一句就可以了

proc sql;
select a.*
from a as a, (select * from a where name='haha') as b
where (a.obs-b.obs) in (-1 0 1);
quit;

1. data a;
   
2.     infile datalines missover;
   
3.     input obs name $;
   
4. cards;
   
5. 1 5
   
6. 2 7
   
7. 3 haha
   
8. 4 0
   
9. 5
   
10. 6 6
    
11. 7 4
    
12. 8 3
    
13. 9 haha
    
14. 10 1
    
15. 11 23
    
16. 12 23
    
17. 13 haha
    
18. 14 14
    
19. ;
    
20. data b;
    
21.     set a nobs=nobs;
    
22.     if upcase(name)='HAHA' then
    
23.         do i=max(_n_-1,1) to min(_n_+1,nobs);
    
24.             set a point=i;
    
25.             output;
    
26.         end;
    
27. run;

复制代码

8楼正解！！！