分成对应变量

初始数据集

name

张三，李四

张三，王五

张三，李四，小七

小七，毛爸

想得到的数据集

namea	nameb
张三	李四
李四	张三
张三	王五
王五	张三
张三	李四
李四	张三
张三	小七
小七	张三
李四	小七
小七	李四
小七	毛爸
毛爸	小七

谢谢    当然还在这个基础上  nodupkeys namea nameb

data name;
input string  $30.;
cards;
张三 李四
张三 王五
张三 李四 小七
小七 毛爸
;
data comb;
set name;
n=countw(string);
do i= 1 to n-1;
        do j= i+1 to n;
name1=scan(string,i);
name2=scan(string,j);
        output;
name1=scan(string,j);
name2=scan(string,i);
        output;
        end;
   end;
run;

zwnSAS121 发表于 2017-3-30 15:08
data name;
input string  $30.;
cards;

谢谢   但是逗号如何处理呢

1. data a;
   
2. input x $50.;
   
3. datalines;
   
4. wwu,lisi
   
5. lisi,zhangs
   
6. zhangs,lisi,xiaoqi
   
7. xiaoqi,xiaoliu
   
8. xiaoqi,xiaoliu,wwu,lisi,zhangs
   
9. ;
   
10. run;
    
11. 
    
12. data b;
    
13. set a;
    
14. num=countw(x,',');
    
15. length n $20.;
    
16. do i=1 to num;
    
17. if index(x,',') then do;
    
18. n=scan(x,i,',');
    
19. end;output;
    
20. end;
    
21. run;
    
22. proc sort data=b out=bb;by x i;where n ne '';run;
    
23. proc sql noprint;
    
24.         select max(num) into: ov from bb;
    
25.    quit;
    
26. %macro jj;
    
27. %do a=1 %to &ov;
    
28. %do b=1 %to &ov;
    
29. data cc&a&b;
    
30. merge bb(where=(i=&a) rename=(n=n1))
    
31.       bb(where=(i=&b) rename=(n=n2));
    
32.           by x;
    
33.           %end;
    
34. %end;
    
35. 
    
36. run;
    
37. %mend jj;
    
38. %jj;
    
39. 
    
40. data want ;
    
41. set cc:;
    
42. if n1 eq '' or n2 eq '' or n1 eq n2 then delete;
    
43. keep x n1 n2;
    
44. proc sort;by x;
    
45. run;

复制代码

变集合为关系对，这种涉及到笛卡尔积的怎么能不用SQL呐......

1. data a;
   
2.         input str:$200.;
   
3.         datalines;
   
4. 张三，李四
   
5. 张三，王五
   
6. 张三，李四，小七
   
7. 小七，毛爸
   
8.         ;
   
9. run;
   
10. 
    
11. data b;
    
12.         set a;
    
13.         n+1;
    
14.         do i=1 to count(str,"，")+1;
    
15.                 x=kscan(str,i,"，");
    
16.                 output;
    
17.         end;
    
18.         keep n x;
    
19. run;
    
20. 
    
21. proc sql;
    
22.         create table c as
    
23.                 select
    
24.                         MONOTONIC() as nodupkeys
    
25.                         ,a.x as name1
    
26.                         ,b.x as name2
    
27.                 from
    
28.                         b a
    
29.                 inner join
    
30.                         b b on a.n=b.n and a.x^=b.x
    
31.         ;
    
32. quit;

复制代码

soporaeternus 发表于 2017-3-30 16:28
变集合为关系对，这种涉及到笛卡尔积的怎么能不用SQL呐......

这个啥意思啊   

data name;
input string  $30.;
cards;
张三,李四
张三,王五
张三,李四,小七
小七,毛爸
;
data comb;
set name;
n=countw(string);
do i= 1 to n-1;
        do j= i+1 to n;
name1=scan(string,i,',');
name2=scan(string,j,',');
        output;
name1=scan(string,j,',');
name2=scan(string,i,',');
        output;
        end;
   end;
run;

akalius 发表于 2017-3-30 17:16
这个啥意思啊

要给出集合里所有的两两关系对，本质就是求自乘的笛卡尔积，sql应该是最显然的方法