r - 查找已删除的唯一对的索引

Question

我有一个 2 列的数据框和一个相同长度的向量。我正在尝试删除数据框中和同一索引处的所有重复对，将其从向量中删除。

我有一个数据框:

> from <- c(1,1,2,4,3)
> to <- c(1,1,2,3,5)
> ft <- data.frame(from,to)
> ft
 from to
1    1  1
2    1  1
3    2  2
4    4  3
5    3  5

和矢量:

> dist <- c(1,2,3,4,5)
> dist
[1] 1 2 3 4 5

我使用函数 unique() 删除所有重复的对:

> unique(ft)
  from to
1    1  1
3    2  2
4    4  3
5    3  5

如何获取“ft”中每一对已被删除位置的索引，以便我可以将其从“dist”中删除，在本例中为 2。

Answer 1

正如@eddi 指出的那样，您可以获得一个逻辑向量，指示哪些行与 duplicated() 重复。我将它与 which() 相结合，它返回与 TRUE 逻辑相关联的数字(即重复的行)。然后，您可以使用 - 创建一个新的 data.frame(vector 等)，以不在您的下标中包含指示的行目的。

编辑:在评论中，@DWin 指出了一种比使用- 更好的方法。如果我们用 ! 否定 duplicated() 函数，我们将得到一个向量，我们可以使用它来确定要保留的行: p>

> from <- c(1,1,2,4,3)
> to <- c(1,1,2,3,5)
> ft <- data.frame(from,to)
> ft
  from to
1    1  1
2    1  1
3    2  2
4    4  3
5    3  5
> dist <- c(1,2,3,4,5)
> dist
[1] 1 2 3 4 5
> remove <- !duplicated(ft)
> remove
[1]  TRUE FALSE  TRUE  TRUE  TRUE
> ft.new <- ft[which(remove), ]
> ft.new
  from to
1    1  1
3    2  2
4    4  3
5    3  5
> dist.new <- dist[which(remove)]
> dist.new
[1] 1 3 4 5