确保两列不同并且没有对称重复的一个巧妙技巧是使用“大于”或“小于”运算符。

Pairs <- Pairs[as.character(Pairs$Var1) < as.character(Pairs$Var2),]

或者，如果你想要相反的

Pairs <- Pairs[as.character(Pairs$Var1) >= as.character(Pairs$Var2),]

这是因为a < a是False（一个项目不小于它自己），对于每一对(a, b)，a < b或b < a是True，另一个是False。这样，对于每一个这样的对，你只保留一个。
因此，as.character(Pairs$Var1) < as.character(Pairs$Var2)返回一个True和False的向量，你可以用它来切片你的data.frame。需要as.character()是因为你不能用<比较factor s。

我发布了一个使用for的解决方案：
首先，删除两列中具有相同值的行：

Pairs <- Pairs[Pairs$Var1 != Pairs$Var2,]

二、去除“标准”重复：

Pairs <- Pairs[!duplicated(Pairs),]

最后，删除重复的是相反的顺序。我的策略涉及到创建一个临时列，允许您（a）不进行搜索的情况下，你知道已经是重复的;（B）进行最后的过滤。然后，您可以删除临时列：

Pairs$my_duplicated <- FALSE
for(i in 1:nrow(Pairs)){
  if(Pairs$my_duplicated[i] == FALSE){
    my_test <- Pairs$Var2 %in% Pairs$Var1[i] & Pairs$Var1 %in% Pairs$Var2[i]
    Pairs$my_duplicated[my_test] <- TRUE
  }
}
Pairs <- Pairs[!Pairs$my_duplicated,]
Pairs$my_duplicated <- NULL

您的数据框：

df <- data.frame(Location = rep(letters[1:20], each = 10))
df <-expand.grid(unique(df$Location),unique(df$Location))
dim(df) # 400 rows x 2 columns

删除重复项：

df = df[!duplicated(t(apply(df, 1, sort))), ]
dim(df) # 210 rows x 2 columns

删除Var1 = Var2

df = subset(df, df$Var1 != df$Var2)
dim(df) # 190 rows x 2 columns