r - 按行和列互惠的子集

Question

这个问题在这里已经有了答案:





Unique rows, considering two columns, in R, without order

(4 个回答)


4年前关闭。




我无法根据行和列中值的互易性对 data.frame 进行子集化。

这是一个示例 df 来说明问题:

rater <- c(21, 23, 26, 24)
ratee <- c(24, 21, 23, 21)
rating.data <- data.frame(rater, ratee)

输出:

   rater ratee
1    21    24
2    23    21
3    26    23
4    24    21

我想通过只保留具有倒数值的行来对这个 df 进行子集化。

生成的子集应如下所示:

   rater ratee
1    21    24
4    24    21

任何想法将不胜感激!

Answer 1

我们可以按行排序，然后使用 duplicated

m1 <- t(apply(rating.data, 1, sort))
rating.data[duplicated(m1)|duplicated(m1, fromLast = TRUE),]
#   rater ratee
#1    21    24
#4    24    21