求助：并接的问题？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助大侠：并接的问题？
有两个数据集

名称	2月单价1	2月单价2	2月单价3
a	0.1	0.2	0.3
b	0.1
c	0.1	0.2

数据集2

名称	1月单价1	1月单价2	1月单价3
a	0.4	0.5	0.6
b	0.2
c	0.3	0.4

用SAS并接后得到：

名称	2月单价1	2月单价2	2月单价3	1月单价1	1月单价2	1月单价3
a	0.1	0.2	0.3	0.4	0.5	0.6
b	0.1			0.2
c	0.1	0.2		0.3	0.4

怎样得到下列格式：

a	0.1	0.2	0.3	0.4	0.5	0.6
b	0.1	0.2
c	0.1	0.2	0.3	0.4

也就是数据集1并接数据集2后，同一名称的单价是连贯的数据,删除中间空格。

谢谢各位！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据集

1. data a;
   
2.    infile datalines missover;
   
3.    input name $ pa1 pa2 pa3;
   
4. datalines;
   
5. a 0.1 0.2 0.3
   
6. b 0.1
   
7. c 0.1 0.2
   
8. ;
   
9. data b;
   
10.    infile datalines missover;
    
11.    input name $ pb1 pb2 pb3;
    
12. datalines;
    
13. a 0.4 0.5 0.6
    
14. b 0.2
    
15. c 0.3 0.4
    
16. ; run;
    
17. 
    
18. data want;
    
19.     length name $8. pb1-pb3 pa1-pa3 8.;
    
20.     merge a b;
    
21.     by name;
    
22.     array num pb1-pb3 pa1-pa3;
    
23.        do i = 1 to dim(num);
    
24.           if missing(num[i]) then num[i]=9999;
    
25.        end;
    
26.     call sortn( of num[*]);
    
27.        do i = 1 to dim(num);
    
28.           if num[i] = 9999 then call missing(num[i]);
    
29.        end;
    
30.     drop i;
    
31. run;

复制代码

挺有技巧的。。。。

1. data a;
   
2.    infile datalines missover;
   
3.    input name $ pa1 pa2 pa3;
   
4. datalines;
   
5. a 0.1 0.2 0.3
   
6. b 0.1
   
7. c 0.1 0.2
   
8. ;
   
9. data b;
   
10.    infile datalines missover;
    
11.    input name $ pb1 pb2 pb3;
    
12. datalines;
    
13. a 0.4 0.5 0.6
    
14. b 0.2
    
15. c 0.3 0.4
    
16. ; run;
    
17. 
    
18. data want;
    
19.     length name $8. pa1-pa3 pb1-pb3 8.;
    
20.     merge a b;
    
21.     by name;
    
22.     array num pa1-pa3 pb1-pb3;
    
23.        do i = 1 to dim(num);
    
24.                 if num(i)=' ' then do;
    
25.                      do j=i+1 to dim(num);
    
26.                           if num(j) ne ' ' then do;
    
27.                                          k=num(j);num(j)=num(i);num(i)=k;leave;
    
28.                                         end;
    
29.                     end;
    
30.           end;
    
31.         end;
    
32.         drop i j k;
    
33. run;

复制代码