R中稀疏连接图的邻接矩阵

Question

我有一个图（无向）数据集，由边表示。但是大多数顶点没有连接。

假设顶点集是

{1,2,3,4,5,6,7,8}

而边缘只是

1->2    
2->3    
1->3

如何使用 igraph 包获取邻接矩阵？使用下面的代码并没有给出完整的邻接，因为它在输入边缘列表中只获得了 3 个顶点

get.adjacency(graph.edgelist(as.matrix(edges), directed=FALSE))

Answer 1

?graph.edgelist 显示图形的其他构造函数。看来graph 有你需要的：

library(igraph)
edges <- data.frame(v1 = c(1, 2, 1), v2 = c(2, 3, 3))

g <- graph(edges = t(as.matrix(edges)), n = 8, directed = FALSE)
get.adjacency(g)

# 8 x 8 sparse Matrix of class "dgCMatrix"
#                     
# [1,] . 1 1 . . . . .
# [2,] 1 . 1 . . . . .
# [3,] 1 1 . . . . . .
# [4,] . . . . . . . .
# [5,] . . . . . . . .
# [6,] . . . . . . . .
# [7,] . . . . . . . .
# [8,] . . . . . . . .