从原始数据创建邻接矩阵以获得中心性

Question

跟进我之前的问题，我想使用以下数据创建度中心性。

我尝试在 stackoverflow (how to find degree centrality of nodes in a matrix?) 上复制前面的示例，但遇到了一些挑战。

 a <- c('nancy','bill','bob','badri','bill','kiron','david')
 b <- c('martial-arts','dance','sports','judo','judo','judo','judo')

 df <- data.frame(a, b)

根据这些数据，我需要创建一个邻接矩阵：（其中 u1、u2、u3、u4、u5、u6 代表 nancy、bill、bob、badri 用户以及他们如何通过他们参与的俱乐部进行连接）。有人可以帮忙吗？

我很难从原始数据创建这个邻接矩阵。有人可以就如何进行提出任何想法。

Answer 1

此解决方案来自Solomon Messing:

M <- as.matrix(table(df))
M <- tcrossprod(M)
diag(M) <- 1
M
#        a
# a       badri bill bob david kiron nancy
#   badri     1    1   0     1     1     0
#   bill      1    1   0     1     1     0
#   bob       0    0   1     0     0     0
#   david     1    1   0     1     1     0
#   kiron     1    1   0     1     1     0
#   nancy     0    0   0     0     0     1

有关如何在稀疏矩阵中执行此操作的指导，请参阅完整的帖子。