MERGE和循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一组数据, 想求每两组的共同品种.1和2有1种相同的，1和3有1中相同的，2和3有2中相同的。如果我有上百中id，每个id有很多品种，有没有循环程序可以实现？多谢帮忙！！！

id  品种
1    A
1    B
1    C
2    B
2    D
2    E
3    B
3    E
。。。

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：Merge 有没有 程序 品种

1. data hell;
   
2.         input id type:$1.;
   
3. datalines;
   
4. 1 A
   
5. 1 B
   
6. 1 C
   
7. 2 B
   
8. 2 D
   
9. 2 E
   
10. 3 B
    
11. 3 E
    
12. ;
    
13. 
    
14. proc sql;
    
15.         create table hell1 as
    
16.                 select a.id as id1, b.id as id2, a.type
    
17.                 from hell a join hell b on a.type=b.type
    
18.                 where a.id < b.id
    
19.                 order by 1,2;
    
20. quit;

复制代码

最近也被这个问题困扰

lewei880 发表于 2013-5-21 01:53
最近也被这个问题困扰

I did a program, and maybe it will be helpful for you.

proc sql;
  create table specie as
   select huc2, count(all_specie) as n
   from three
   group by huc2;
quit;

proc sort data=three out=four;
   by huc2;
run;


%macro loop;
  %local i;
  %do i=1 %to 25;
    %let current=&I;
    proc sql;
      create table specie_&CURRENT as
      select *
      from four
      where huc2=&CURRENT
      ;
    quit;
  %end;
%mend loop;
%loop;

%macro loop2;
%local i;
%local j;
%do i=1 %to 25;
  %do j=1 %to 25;
  proc sort data=specie_&i;
    by all_specie;
  run;
proc sort data=specie_&j;
    by all_specie;
  run;
  data specie_&i&j;
  merge specie_&i (in=a) specie_&j (in=b);
  by all_specie;
  if a and b;
  id=&i||'+'||left(trim(&j));
  drop huc2;
run;
%end;
%end;
%mend;
%loop2;

%macro loop3;
%do i=1 %to 25;
   %do j=1 %to 25;
   proc append base=new data=specie_&i&j force;
   run;
   %end;
  %end;
%mend;
%loop3;