在两列中翻转时删除行

Question

考虑以下数据框:

df <- data.frame(var1 = 1:5, var2 = c(5,6,7,8,1))

> df
  var1 var2
1    1    5
2    2    6
3    3    7
4    4    8
5    5    1

我想删除所有值在两列之间翻转的行。在这种情况下，它将是第 1 行 和 第 5 行，因为第 1 行中的值 1 和 5 被翻转为第 5 行中的 5 和 1。这两行应该是已删除。

我希望我的要求很清楚:-)

亲切的问候!

Answer 1

也许这样的事情也能奏效:

df <- data.frame(var1 = 1:5, var2 = c(5,6,7,8,1))
df[!do.call(paste, df) %in% do.call(paste, rev(df)), ]
  var1 var2
2    2    6
3    3    7
4    4    8

虽然我必须在更多的测试用例上测试它，但一般的想法是使用 rev 来反转“df”和 paste< 中列的顺序 将它们放在一起，并将其与“df”中粘贴的列进行比较。