R 从网络求加权矩阵

我使用

asnipe

包从分组到单个矩阵创建网络，但随后，我需要将其转换为邻接矩阵。 为此，我考虑使用

igraph

中包含的函数，例如

get.adjacence

，但它返回一个非加权矩阵，其中所有关联只取1作为值

例如，如果我们考虑以下数据集：

data <- read.table(text = "  A B C D E
                 1 1 1 0 0 0
                 2 1 1 0 0 0
                 3 1 1 0 0 0
                 4 1 1 0 0 0
                 5 0 0 1 1 1
                 6 0 0 1 1 1
                 7 0 0 1 1 1
                 8 0 0 1 1 1
                 9 1 1 1 1 1", header = TRUE)

但我明白了：

get.adjacency(net)
# 5 x 5 sparse Matrix of class "dgCMatrix"
  A B C D E
A . 1 1 1 1
B 1 . 1 1 1
C 1 1 . 1 1
D 1 1 1 . 1
E 1 1 1 1 .

这个数据集就是一个例子，真实的数据包含数千行，不包括任何手动操作的可能性。

---

非常感谢您的提前

我相信有人能帮你得到稀疏矩阵。同时，直接从你的“数据”：

m@Henrik
library（Matrix）；drop0（矩阵（m））
非常感谢您提供此功能！
  A B C D E
A . 5 1 1 1
B 5 . 1 1 1
C 1 1 . 5 5
D 1 1 5 . 5
E 1 1 5 5 .

get.adjacency(net)
# 5 x 5 sparse Matrix of class "dgCMatrix"
  A B C D E
A . 1 1 1 1
B 1 . 1 1 1
C 1 1 . 1 1
D 1 1 1 . 1
E 1 1 1 1 .