R中两个不同节点之间的链路关联矩阵

Question

我的数据帧由一对电极之间的二进制权重组成：

> head(data)
  Elec1 Elec2 weight
1    C3    C3      0
2    C3    C4      1
3    C3   CP1      1
4    C3   CP2      0
5    C3   CP5      0
6    C3   CP6      1

基本上，我有25个电极和它的排列(625个观察值)到其他25个电极，包括相同的电极，以及一个二进制权重。假设1表示连接，0表示断开连接。

我正在尝试建立一个链接矩阵，以便通过不同的网络可视化来分析这些数据。

最终产品可能是这样的

Elec C3 C4 CP1 CP2 CP5
1   C3  0   1   2   0   0
2   C4  1   1   0   1   0
3   CP1 1   1   1   1   1
4   CP2 0   0   0   2   1
5   CP5 0   1   1   1   1

请注意，它应该有一个双向逻辑，因此可能是2。

我试过了model.matrix但我不能让它工作。

提前感谢！

Answer 1

以防有人发现它很有用，我最终使用了library(reshape2)具体地说melt函数。

这样做起到了作用，然后我就不需要双向重复了。

table(melt(d, id.var=c("Elec1","Elec2")))