R中的行唯一性

Question

我有一个无向图边缘列表，如下所示：

AB

BA

光盘

我想提取独特的边缘。

所以最终结果只会返回

A B  (or)  B A
C D

我知道如何在python中执行此操作，以及如何在R中选择唯一的行。但是我如何在R中执行此附加约束。

Answer 1

也许有更好的方法，但一种选择是对数据进行排序，使每行按字母顺序排列，这样包含相同项的行将变得相同，并在结果上使用unique ：

edges <- data.frame(a=c("A", "B", "C"), b=c("B","A","D")) 
unique.edges <- unique(t(apply(edges,1, sort)) )

这里的输出是一个字符矩阵，如：

#     [,1] [,2]
#[1,] "A"  "B" 
#[2,] "C"  "D" 

Answer 2

如果您正在处理图形数据，您可能还会考虑在R中使用igraph包。如果这是您的输入数据

dd<-matrix(c("A", "B", "C", "B", "A", "D"), ncol=2)
#     [,1] [,2]
# [1,] "A"  "B" 
# [2,] "B"  "A" 
# [3,] "C"  "D" 

然后你可以做到

library(igraph)
gg<-simplify(graph.edgelist(dd, directed=F))
get.edgelist(gg)

#     [,1] [,2]
# [1,] "A"  "B" 
# [2,] "C"  "D" 

这里simplify从AB中删除冗余双向边缘。 然后你也可以做一些有趣的事情，比如绘制它

plot(gg)