请教：删除数据集中的观测？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教：删除数据集中的观测？
       从数据集A中查找有数据集B的相等观测，然后删除。我是用下列程序：
data a;
input x y z;
cards;
1 2 3
5 4 3
6 9 8
;
run;

data b;
input x y;
cards;
1 3
5 4
;
run;  

proc sql;
create table c as
select * from a
where not exists
(select * from b where a.x=b.x  or  a.y=b.y);
quit;

由于A，B的观测非常多（几百万，变量也很多），运行非常慢。
请教高人；有没有其他速度快的办法？  我的版本SAS9.1
谢谢！！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据集 proc sql Select Create cards

内存大的话hash应该会快点，来学习学习

1. data a;
   
2. input x y z;
   
3. cards;
   
4. 1 2 3
   
5. 5 4 3
   
6. 6 9 8
   
7. ;
   
8. run;
   
9. 
   
10. data b;
    
11. input x y;
    
12. cards;
    
13. 1 3
    
14. 5 4
    
15. ;
    
16. run;
    
17. /*抛个砖--期待更好的方法- */
    
18. data _null_;
    
19. if 0 then set a;
    
20. if _n_=1 then do;
    
21. declare hash h(dataset:'a');
    
22. h.definekey('x');
    
23. h.definedata('x','y','z');
    
24. h.definedone();
    
25. end;
    
26. set b end=last;
    
27. rc=h.find();
    
28. if rc=0 then h.remove();
    
29. if last then
    
30. h.output(dataset:'aa');
    
31. run;
    
32. data _null_;
    
33. if 0 then set aa;
    
34. if _n_=1 then do;
    
35. declare hash h(dataset:'aa');
    
36. h.definekey('y');
    
37. h.definedata('x','y','z');
    
38. h.definedone();
    
39. end;
    
40. set b end=last;
    
41. rc=h.find();
    
42. if rc=0 then h.remove();
    
43. if last then
    
44. h.output(dataset:'result');
    
45. run;

复制代码

1. /*如果有多个key的话，可以用宏*/
   
2. %macro hash(dsn,key,out);
   
3. proc contents data=&dsn. out=out1(keep=name) noprint;
   
4. run;
   
5. proc sql noprint;
   
6. select quote(strip(name)) into :variables separated by ','
   
7. from out1;
   
8. quit;
   
9. %put &variables;
   
10. proc delete data=out1;
    
11. run;
    
12. data _null_;
    
13. if 0 then set &dsn.;
    
14. if _n_=1 then do;
    
15. declare hash h(dataset:"&dsn.");
    
16. h.definekey("&key");
    
17. h.definedata(&variables.);
    
18. h.definedone();
    
19. end;
    
20. set b end=last;
    
21. rc=h.find();
    
22. if rc=0 then h.remove();
    
23. if last then
    
24. h.output(dataset:"&out");
    
25. run;
    
26. %mend hash;
    
27. %macro remove();
    
28.   %hash(a,x,temp);
    
29.   %hash(temp,y,result);
    
30.   proc delete data=temp;
    
31.   run;
    
32. %mend;
    
33. %remove

复制代码