请教个组合的问题

请教个问题  原始数据

date	class	name
1998/3/1	a	小明
1998/3/1	a	小红
1998/3/1	a	小美
1998/3/1	b	大壮
1998/3/1	b	大高
1998/3/12	d	小明
1998/3/12	d	小溪
1998/3/12	d	小何
1998/3/12	d	付好

想得到的

date	class	namea	nameb
1998/3/1	a	小明	小红
1998/3/1	a	小明	小美
1998/3/1	a	小红	小美
1998/3/1	b	大壮	大高
1998/3/12	d	小明	小溪
1998/3/12	d	小明	小何
1998/3/12	d	小明	付好
1998/3/12	d	小溪	小何
1998/3/12	d	小溪	付好
1998/3/12	d	小何	付好

即根据date  class  确定一个群体，求出两两的所有组合， 但namea  和  nameb 之间次序无所谓的

1. data temp;
   
2.         input date yymmdd10. class $ name $;
   
3.         format date yymmdd10.;
   
4.         cards;
   
5. 1998/3/1        a        小明
   
6. 1998/3/1        a        小红
   
7. 1998/3/1        a        小美
   
8. 1998/3/1        b        大壮
   
9. 1998/3/1        b        大高
   
10. 1998/3/12        d        小明
    
11. 1998/3/12        d        小溪
    
12. 1998/3/12        d        小何
    
13. 1998/3/12        d        付好
    
14. ;
    
15. run;
    
16. 
    
17. proc sql;
    
18.         create table temp1 as
    
19.                 select a.date,a.class,a.name as aname,b.name as bname
    
20.                         from temp as a,temp as b
    
21.         where a.date = b.date & a.class = b.class & a.name ^= b.name;
    
22. quit;
    
23. 
    
24. data temp2;
    
25.         set temp1;
    
26.         if aname <= bname then comname = compress(aname)||","||compress(bname);
    
27.         else comname = compress(bname)||","||compress(aname);
    
28. run;
    
29. 
    
30. proc sql;
    
31.         create table temp3 as
    
32.                 select distinct date,class,comname from temp2;
    
33. quit;
    
34. 
    
35. data final;
    
36.         set temp3;
    
37.         aname = scan(comname,1);
    
38.         bname = scan(comname,2);
    
39.         drop comname;
    
40. run;

复制代码

Strive、 发表于 2018-2-5 15:42

谢谢   这个汉字比较大小是根据什么  if aname <= bname

1. data test;
   
2.    input date :yymmdd10. class $ name $;
   
3.    format date yymmdd10.;
   
4. cards;
   
5. 1998/3/1 a 小明
   
6. 1998/3/1 a 小红
   
7. 1998/3/1 a 小美
   
8. 1998/3/1 b 大壮
   
9. 1998/3/1 b 大高
   
10. 1998/3/12 d 小明
    
11. 1998/3/12 d 小溪
    
12. 1998/3/12 d 小何
    
13. 1998/3/12 d 付好
    
14. ;
    
15. run;
    
16. 
    
17. data want;
    
18. do i=1 to n;
    
19.    set test(rename=(name=namea)) nobs=n point=i;
    
20.    do j=1 to n;
    
21.       p=i+j;
    
22.       set test(rename=(name=nameb date=temp_date class=temp_class)) point=p;
    
23.       if date=temp_date and class=temp_class and p<=n then output;
    
24.    end;
    
25. end;
    
26. stop;
    
27. drop temp_: j;
    
28. run;

复制代码

akalius 发表于 2018-2-5 19:25
谢谢   这个汉字比较大小是根据什么  if aname

也是用ASCII码比较的

Another option with only PROC SQL. Hope this short code helps

1. proc sql;
   
2.         create table temp1 as select distinct date, class,name
   
3.         from test;
   
4.         create table want as select a.date, a.class, a.name as namea , b.name as nameb
   
5.         from temp1 as a,
   
6.         temp1 as b
   
7.         where a.date=b.date and a.class=b.class and a.name<b.name
   
8.         order by a.date, a.class, a.name;
   
9. quit;

复制代码