如何将加权边列表转换为r中的邻接矩阵

Question

我有一个加权边缘列表，我想将其转换为邻接矩阵。我可以用一个简单的代码来做到这一点吗？

数据看起来像这样：

  From To    Weight
1    a  a 0.3274570
2    b  a 0.7188648
3    a  b 0.1097450
4    b  b 0.9054419

这里是复制代码：

edgelist <- setNames(cbind(expand.grid(letters[1:2], letters[1:2]), runif(4)), c("From", "To", "Weight"))
edgelist

Answer 1

as.matrix(tidyr::spread(edgelist, "To", "Weight")[-1])