如何在R中融合数据？

我有一个矩阵来描述不同的人之间的关系。如果人与人之间有任何联系，我在特定单元格中有“1”，否则为“0”。如何将其转换为具有两列的data.frame，如下所示：

人1——人4

人1——人6

人2——人1

---

？

使用

melt

从

重塑2

：

library(reshape2)
set.seed(1)
mx <- matrix(sample(0:1, 9, r=T), nrow=3, dimnames=replicate(2, paste0("p", 1:3), s=F))
#    p1 p2 p3
# p1  0  1  1
# p2  0  0  1
# p3  1  1  1

melt(mx)
#   Var1 Var2 value
# 1   p1   p1     0
# 2   p2   p1     0
# 3   p3   p1     1
# 4   p1   p2     1
# 5   p2   p2     0
# 6   p3   p2     1
# 7   p1   p3     1
# 8   p2   p3     1
# 9   p3   p3     1

library（重塑2）
种子（1）
mx可能重复的