将边列表映射到邻接矩阵(并将它们相加)

我想把许多(无向的)友谊网络(edgelist格式)映射到一个邻接矩阵,该矩阵由所有可能的节点(即人)组成,使用 R . 首先,我构造了一个更小的4人圆圈 x <- c(1, 2, 3, 4) 它由6个独特的边组成(1-2、1-3、1-4、2-3、2-4、3-4)。然后我将这组6条唯一的边折叠成一个列表,这样就可以使用 igraph 应用程序(见下文)。

x = c(1,2,3,4)
x_pairs = combn(x, 2)
List <- split(x_pairs, rep(1:ncol(x_pairs), each = nrow(x_pairs)))
library(purrr)
new_list <- purrr::flatten(List)
g <- make_graph(unlist(new_list), directed = F)
m <- as_adjacency_matrix(g, sparse = F)
m

     [,1] [,2] [,3] [,4]
[1,]    0    1    1    1
[2,]    1    0    1    1
[3,]    1    1    0    1
[4,]    1    1    1    0

我的数据集中有超过一个这样小的友谊圈,由50人中的成员组成,这些圈的成员可能重叠,也可能不重叠。所以我的问题是如何映射一系列较小的矩阵值,比如 m 以两种不同的方式将其转换为50×50邻接矩阵:

(1) 无需重复:比如说,如果3和4是一个圈中的朋友,但它们也连接在另一个圈中,那么3和4之间的边应该保持1(但不等于2) (2) 累积:如果多个圆中的关系表示友谊更强,那么将这些圆映射到加权邻接矩阵中可能更有用,矩阵中的每个单元格表示不同圆中行和列id的友谊的累积计数。在3和4的情况下,它们的边值应该是1+1=2。

我已经退房了 this 和其他以前的线程,但似乎不知道如何做到这一点,如果有人能启发我这将是非常感谢。