求助大神，如何多列匹配！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

问题如下：表a
             ID   DATE1          DATE2         DATE3……
             1   20120305     20120508
             2   20090807    20090808
                 表b
             ID   DATE               PRICE
             1     20120305       3.6
             1     20120508       5.6
             2    20090807        8.9
             2    20090808        7.3
           ……
目的：使得a表中的每一个ID和日期都能在b表中找到与之相匹配的price，如：ID   DATE1  DATE2  PRICE1  PRICE2

    谢谢大神了！！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：求助大神 Price date Rice ATE 如何

是不是这样.

1. data a;
   
2. input  ID $  DATE1 yymmdd10.  DATE2 yymmdd10.  DATE3  yymmdd10.;
   
3.    format ID 1.;
   
4.    format date1 date2 date3 yymmdd10.;
   
5. datalines;
   
6. 1   20120305 20120508 20120509
   
7. 2   20090807 20090808 20090809
   
8. 3   20090807 20090808 20090809
   
9. ; run;
   
10. 
    
11. data b;
    
12.     input ID $  DATE yymmdd10. PRICE;
    
13.     format ID $1.;
    
14.     format date yymmdd10.;
    
15. datalines;
    
16. 1  20120305 3.6
    
17. 1  20120508 5.6
    
18. 2  20090807 8.9
    
19. 2  20090808 7.3
    
20. ; run;
    
21. 
    
22. proc sort data=a out=aa; by id date1 date2; run;
    
23. 
    
24. proc transpose data=b out=bb(drop=_name_) prefix=date;
    
25.     by id;
    
26.     var date;
    
27.     copy price;       
    
28. run;
    
29. 
    
30. proc transpose data=bb out=bbb(drop=_name_) prefix=price;
    
31.      by id;
    
32.      var price;
    
33.      copy date1 date2;
    
34. run;
    
35. 
    
36. proc sort data=bbb; by id date1 date2; run;
    
37. 
    
38. data a_b;
    
39.     merge aa(in=ina) bbb(in=inb);
    
40.     by id date1 date2;
    
41.     if ina and inb;
    
42. run;

复制代码

data a;
input  ID $  DATE1 yymmdd10.  DATE2 yymmdd10.  DATE3  yymmdd10.;
   format ID 1.;
   format date1 date2 date3 yymmdd10.;
datalines;
1   20120305 20120508 20120509
2   20090807 20090808 20090809
3   20090807 20090808 20090809
; run;

data b;
    input ID $  DATE yymmdd10. PRICE;
    format ID $1.;
    format date yymmdd10.;
datalines;
1  20120305 3.6
1  20120508 5.6
1  20120509 5.88
2  20090807 8.9
2  20090808 7.3
2  20090809 7.66
3  20090807 44.9
3  20090808 33.3
3  20090809 22.66
; run;

data _null_;
     set b;
         call symputx(catx("_","P",id,date),price);
run;

data wanted;
    set a;
        array d  date1-date3;
        array p  price1-price3;
        do i=1 to 3;
           p(i)=symget(catx("_","P",id,d(i)));
        end;
        drop i;
run;

   

yongyitian 发表于 2013-6-28 10:41
是不是这样.

    谢谢大神！
    我的问题还在于表b中有关于不同ID,很多日期的数据，也就是说不仅有ID1, 20120305     20120508两日的数据，所以需要从b表中先找；而且，表a的date列有很多，考虑过用left join 分别去和表b匹配，但a表的date列有很多，所以想请教有没有其他的办法～再次谢过！

pobel 发表于 2013-6-28 11:44
data a;
input  ID $  DATE1 yymmdd10.  DATE2 yymmdd10.  DATE3  yymmdd10.;
   format ID 1.;

谢谢大神！
    我的问题还在于表b中有关于不同ID,很多日期的数据，也就是说不仅有ID1, 20120305     20120508两日的数据，所以需要从b表中先找；而且，表a的date列有很多，考虑过用left join 分别去和表b匹配，但a表的date列有很多，所以想请教有没有其他的办法～再次谢过！

1234nu 发表于 2013-6-28 14:12
谢谢大神！
    我的问题还在于表b中有关于不同ID,很多日期的数据，也就是说不仅有ID1, 20120305    ...

前面方法的思路是将数据集 b 转换成数据集 a 的格式然后合并. 如果date变量多的话，可一将其它 date 加入 第33, 36, 40 行。
或者将 date1, date2 改成 date1-daten.
还可以将第 41 行去掉,看看结果如何.

另外， 可以将数据集 a 转换成数据集 b 的格式，然后合并，transpose，最后去掉不必要的行。 如下。

1. data a;
   
2. input  ID $ DATE1 yymmdd10. DATE2 yymmdd10. DATE3 yymmdd10.;
   
3.    format ID 1.;
   
4.    format date1 date2 date3 yymmdd10.;
   
5. datalines;
   
6. 1   20120305 20120508 20120509
   
7. 2   20090807 20090808 20090809
   
8. 3   20090807 20090808 20090809
   
9. ; run;
   
10. 
    
11. data b;
    
12.     input ID $  DATE yymmdd10. PRICE;
    
13.     format ID $1.;
    
14.     format date yymmdd10.;
    
15. datalines;
    
16. 1  20120305 3.6
    
17. 1  20120508 5.6
    
18. 2  20090807 8.9
    
19. 2  20090808 7.3
    
20. ; run;
    
21. 
    
22. data a1;
    
23.   format id $1. date yymmdd10.;
    
24.   array d{*} date1-date3;
    
25.      set a;
    
26.      do i = 1 to dim(d);
    
27.         date=d(i);
    
28.         output;
    
29.      end;
    
30.    drop i;
    
31. run;
    
32. 
    
33. proc sort data=a1;       by id date; run;
    
34. proc sort data=b out=b1; by id date; run;
    
35. 
    
36. data a1_b1;
    
37.      merge a1 b1;
    
38.      by id;
    
39. run;
    
40. 
    
41. proc transpose data=a1_b1 out=a1b1(drop=_name_) prefix=price;
    
42.     by id;
    
43.     var price;
    
44.     copy date1-date3;
    
45. run;
    
46. 
    
47. proc sort data=a1b1 out=a2b2 nodupkey;
    
48.      by id;
    
49. run;

复制代码

yongyitian 发表于 2013-6-29 00:29
前面方法的思路是将数据集 b 转换成数据集 a 的格式然后合并. 如果date变量多的话，可一将其它 date 加 ...

谢谢大神的指教！

不懂  mark