请教个关于网络问题

初始数据是

compa	compb
脸书	中石化
苹果	中石化
ibm	苹果
ibm	高盛
att	德州
德州	中石油

意味着 compa 和 compb 连接起来   ，很多节点就构成了一个网络，以上有两个网络，分别是脸书、中石化、苹果、ibm、高盛    和    att  中石油  德州   下面要求每个点所在圈子对应的其他所有点  ， 希望得到如下的表格，谢谢

compa	compc
脸书	中石化
脸书	苹果
脸书	ibm
脸书	高盛
苹果	中石化
苹果	脸书
苹果	ibm
苹果	高盛
ibm	中石化
ibm	脸书
ibm	苹果
ibm	高盛
高盛	中石化
高盛	苹果
高盛	ibm
高盛	脸书
att	德州
att	中石油
德州	att
德州	中石油
中石油	德州
中石油	att

请仔细看看题目再回复，有疑问的可以问我  ；另外数据量比较大  每次需要考虑的节点有几百个   至于连接的边就更多了 谢谢

1. /*建立原始数据集test*/
   
2. data test;
   
3. input (compa compb) (:$20.);
   
4. cards;
   
5. 脸书        中石化
   
6. 苹果        中石化
   
7. ibm        苹果
   
8. ibm        高盛
   
9. att        德州
   
10. 德州        中石油
    
11. ;
    
12. run;
    
13. 
    
14. /*
    
15. 在数据集test基础上，生成数据集test1，
    
16. 新设2个变量a和b，把变量compa和compb的值摞在一起
    
17. （变量a和b其实是一样的，compa和compb接下来不会用到了），
    
18. a、b的主要目的是用于找出所有出现的节点（根据变量a或b），
    
19. 以及网络划分时候找出与每个节点连接的节点
    
20. （前提是compa和compb的关系没有方向）*/
    
21. data test1;
    
22.    length
    
23.       a $20
    
24.       b $20;
    
25.    set test;
    
26.    a=compa;
    
27.    b=compb;
    
28.    output;
    
29.    a=compb;
    
30.    b=compa;
    
31.    output;
    
32. run;
    
33. 
    
34. /*数据集test1按变量a排序，这一步无关紧要*/
    
35. proc sort data=test1;
    
36.    by a;
    
37. run;
    
38. 
    
39. /*根据数据集test1中的变量a（或变量b），新建数据集notes，
    
40. 储存所有出现的节点，具体储存在变量名note_name中*/
    
41. proc sql;
    
42.    create table notes as
    
43.    select distinct a as note_name
    
44.    from test1;
    
45. run;
    
46. quit;
    
47. 
    
48. /*在数据集notes基础上，复制note_name变量，
    
49. 命名为temp，temp变量用于网络划分时候归类。
    
50. 另外把所有出现的节点数赋值给宏变量&n。*/
    
51. 
    
52. data notes;
    
53.    length temp $20;
    
54.    set notes end=last;
    
55.    temp=note_name;
    
56.    if last then call symput('n',_n_);
    
57. run;
    
58. 
    
59. /*
    
60. 网络划分的大概思想是在数据集notes的temp变量里选一个节点，
    
61. 根据数据集test1的变量a、b，找出与这个节点连接的其他节点，
    
62. 后者（与这个节点连接的其他节点）用前者（这个节点）代替
    
63. （具体操作时数据集test1中的变量a和b，分别做变量值替换；
    
64. 数据集notes中的变量temp，做变量值替换），
    
65. 根据所有出现的节点数（&n）遍历后，
    
66. 数据集notes中变量temp的值域数量，就是网络数，
    
67. 而变量note_name则记录着原始节点名称。
    
68. */
    
69. 
    
70. /*根据所有出现的节点数（&n）遍历*/
    
71. %macro test;
    
72. %do i=1 %to &n;
    
73.    /*在数据集notes的temp变量里选一个节点*/
    
74.    data _null_;
    
75.       set notes;
    
76.       if _n_=&i then call symput('note_name',temp);
    
77.    run;
    
78.    /*根据数据集test1的变量a、b，找出与这个节点连接的其他节点，
    
79.    存在数据集temp_one_note中*/
    
80.    proc sql;
    
81.       create table temp_one_note as
    
82.       select distinct b from test1
    
83.       where a="¬e_name";
    
84.    run;
    
85.    quit;
    
86.    /*为了方便，把“与这个节点连接的其他节点”存入宏变量&one_note*/
    
87.    proc sql noprint;
    
88.       select distinct b into : one_note separated by ' '
    
89.       from temp_one_note;
    
90.    run;
    
91.    quit;
    
92.    /*数据集test1中的变量a和b，分别做变量值替换*/
    
93.    data test1;
    
94.       set test1;
    
95.       %do j=1 %to %sysfunc(countw(&one_note));
    
96.       if a=scan("&one_note",&j) then a="¬e_name";
    
97.       if b=scan("&one_note",&j) then b="¬e_name";
    
98.       %end;
    
99.    /*数据集notes中的变量temp，做变量值替换*/
    
100.    data notes;
     
101.       set notes;
     
102.       %do j=1 %to %sysfunc(countw(&one_note));
     
103.       if temp=scan("&one_note",&j) then temp="¬e_name";
     
104.       %end;
     
105.    run;
     
106. %end;
     
107. %mend;
     
108. %test
     
109. 
     
110. /*网络内节点全排列*/
     
111. proc sql;
     
112.    create table want as
     
113.    select t1.note_name as comp1, t2.note_name as comp2 from notes as t1, notes as t2
     
114.    where t1.temp=t2.temp;
     
115. run;
     
116. quit;
     
117. data want;
     
118.    set want;
     
119.    if comp1^=comp2;
     
120. run;

复制代码

可以试一试 PROC SQL。 第一步是为每一列建一个Distinct Table；第二步把两个Table合在一起建一个笛卡尔Table，让后去掉有相同值的行。
以下是Sample Code：
proc sql;
        create table compa as select distinct compa
        from have;
        create table compb as select distinct compb
        from have;
        create table want as select *
        from compa,compb
        where compa ne compb
        ;
quit;

xiami2000 发表于 2018-1-29 11:56
可以试一试 PROC SQL。 第一步是为每一列建一个Distinct Table；第二步把两个Table合在一起建一个笛卡尔Tab ...

xiexie    但是你这样做的不是我想要的

l1i2n3i4n5g 发表于 2018-1-28 14:05
data test1;
   length a $20
          b $20;

非常感谢   能否大概讲讲思路  谢谢

1. data temp;
   
2.         input a $ b $;
   
3.         cards;
   
4.         脸书        中石化
   
5.         苹果        中石化
   
6.         ibm        苹果
   
7.         ibm        高盛
   
8.         att        德州
   
9.         德州        中石油
   
10. run;
    
11. 
    
12. 
    
13. data f1;
    
14.         set temp;
    
15.         length combind $200.;
    
16.         retain combind '' index;
    
17.         if ^ kindex(combind,a) and ^ kindex(combind,b) then do;
    
18.                 combind = compress(a)||"、"||compress(b);
    
19.                 index + 1;
    
20.         end;
    
21.         else if kindex(combind,a) and ^ kindex(combind,b) then combind = compress(combind)||"、"||compress(b);
    
22.         else if ^ kindex(combind,a) and kindex(combind,b) then combind = compress(combind)||"、"||compress(a);
    
23. run;
    
24. 
    
25. data f2;
    
26.         set f1;
    
27.         by index;
    
28.         n = count(combind,"、");
    
29.         if last.index;
    
30. run;
    
31. 
    
32. data final;
    
33.         set f2;
    
34.         do i = 1 to n+1;
    
35.                 fa = kscan(combind,i,"、");
    
36.                 do j = 1 to n+1;
    
37.                         if i ^= j then do;
    
38.                                 fb = kscan(combind,j,"、");
    
39.                                 output;
    
40.                         end;
    
41.                 end;
    
42.         end;
    
43. run;

复制代码

Strive、 发表于 2018-1-31 22:37

谢谢    但这个得不到想要的结果
可以用这个检验一下

脸书        中石化
苹果        中石化
ibm        苹果
ibm        高盛
att        德州
德州        中石油
001       002
002      003
003      004
006      002
008     009
001     010
008   高盛

akalius 发表于 2018-1-31 22:22
非常感谢   能否大概讲讲思路  谢谢

昨天比较匆忙，现已增加注释

l1i2n3i4n5g 发表于 2018-1-28 14:05

帅哥，你重新发了之后咋运行不了了

akalius 发表于 2018-2-7 21:57
帅哥，你重新发了之后咋运行不了了

把所有"¬e_name"，改成“&note_name”