R：将边列表转换为邻接矩阵

在R中，有一种直接的方法将边列表转换为邻接矩阵（反之亦然）

我创建了一些数据：

library(igraph)
library(mstknnclust)

Relationship_Information <-data.frame(

"name_a" = c("John","John","John","Jack","Jack","Jack","Jason","Jason","Jim","Jim","Jim","Julian","Jake","Joseph","Joseph"),
"name_b" = c("Jack", "Jason", "Joseph", "John", "Julian","Jim","Jim", "Joseph", "Jack", "Julian", "John", "Joseph", "John", "Jim", "John"),
"how_much_they_owe_each_other" = c("10000","20000","60000","10000","40000","8000","0","50000","6000","2000","10000","10000","50000","12000","0"),
"how_much_they_paid_each_other" = c("5000","40000","120000","20000","20000","8000","0","20000","12000","0","0","0","50000","0","0")

)
c = Relationship_Information[,c(1:2)]

  g=graph.data.frame(c) 
a = get.adjacency(g,sparse=FALSE)

库（igraph）
图书馆（MSTKNCLUST）
关系与信息
##Generates complete graph (CG) without suggested.k parameter (this does not work)



  cg <- generate.complete.graph(1:nrow(a),g)

##Generates kNN graph
knn <- generate.knn(cg)

##Visualizing kNN graph
plot(knn$knn.graph,
main=paste("kNN \n k=", knn$k, sep=""))