reshape 矩阵以获得网络

Question

我需要将一个两列矩阵 reshape 为一个类似于邻接矩阵的矩阵。
我有以下数据集:

firm_id_1 firm_id_2
1         2
1         4
1         5
2         1
2         3
3         2
3         6
4         1
4         5
5         4
6         3

等等... 4000 种不同的 firm_id .

在第一列中， firm_id_1 之间有直接联系。和 firm_id_2 .例如， firm_id = 1 与 firm_id 直接相关(一级) 2, 4, 5，通过 firm_id 与 3 间接关联(二级) =2，并间接与 firm_id 相关联=6 通过 firm_id =3，以此类推……

我想在 R 中构建这个矩阵:

firm_id [1] [2] [3] [4] [5] [6]
[1]          1   2   1   1   3
[2]      1       1           2
[3]          1               1
[4]      1
[5]      1
[6]              1   

每个数字代表网络中的分离程度。这在 R 中可行吗？

Answer 1

library(igraph)
g <- graph.edgelist(mat)
shortest.paths(g)

#      [,1] [,2] [,3] [,4] [,5] [,6]
# [1,]    0    1    2    1    1    3
# [2,]    1    0    1    2    2    2
# [3,]    2    1    0    3    3    1
# [4,]    1    2    3    0    1    4
# [5,]    1    2    3    1    0    4
# [6,]    3    2    1    4    4    0