求助一个匹配结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有两份数据：
A数据为两个用户对应表，如：

u1 u2
u2 u3
u1 u3

B数据表为各用户购买物品明细表，如：

u1 apple
u1 banana
u2 apple
u3 banana

我想根据这两份表，找出A表每个对应用户是否有购买同一物品的情况

输出：
u1 u2 1       （都购买了apple）
u2 u3 0        (无交叉)
u1 u3 1        （都购买了banana）


求助各位大神了。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：banana Apple appl BAN App apple 明细表 数据表 用户

data ex;
input usr1 $ usr2 $;
cards;
u1 u2
u2 u3
u1 u3
;
run;

data ex1;
input usr $ fruits $;
cards;
u1 apple
u1 banana
u2 apple
u3 banana
;
run;
proc sql;
create table ex2 as
select usr1,usr2,sum(f1=f2) from
(select c.*,b.fruits as f2 from
(select a.*,b.fruits as f1 from ex a inner join ex1 b
on a.usr1=b.usr ) as c inner join ex1 b on c.usr2=b.usr)
group by usr1,usr2;
quit;

1. data a;
   
2. user1="u1";user2="u2";output;
   
3. user1="u2";user2="u3";output;
   
4. user1="u1";user2="u3";output;
   
5. run;
   
6. 
   
7. data b;
   
8. length thing $10;
   
9. user="u1";thing="apple";output;
   
10. user="u1";thing="banana";output;
    
11. user="u2";thing="apple";output;
    
12. user="u3";thing="banana";output;
    
13. run;
    
14. 
    
15. proc sort data=b noduprecs;
    
16.   by user thing;
    
17. run;
    
18. 
    
19. data fin;
    
20.   result=.;
    
21. run;
    
22. 
    
23. %global uu1 uu2 num;
    
24. %macro ff(uu1=,uu2=);
    
25.   proc sort data=b(where=(user in ("&uu1.","&uu2."))) out=b2 ;
    
26.     by thing;
    
27.   run;
    
28. 
    
29.   data result;
    
30.     set b2 end=eof;
    
31.         by thing;
    
32.         retain result 0;
    
33.         if first.thing=0 then result=1;
    
34.         if eof then output;
    
35.         keep result;
    
36.   run;
    
37. 
    
38.   data fin;
    
39.     set fin result;
    
40.         if ^missing(result);
    
41.   run;
    
42. %mend ff;
    
43. 
    
44. data _null_;
    
45.   set a;
    
46.   call execute ('%ff(uu1='||user1||', uu2='||user2||')');
    
47. run;
    
48. 
    
49. data final;
    
50.   set a;
    
51.   set fin;
    
52. run;
    
53.   

复制代码

多谢楼上两位大神解读