从向量中删除向量元素

Question

这应该很容易，但我一直在撞我的头。

我有数字向量v1

v1 <- c(1,1,3,5,7,7)

我有一个数值向量v2。v2始终是v1的子集。
我想从v1中删除v2中的所有元素，但每个v2元素只删除一个（而且完全是一个）v1元素。

所需输出

如果v2<-c(3,5)我希望将c(1,1,7,7)保留在v1之外。使用v1[-match(v2,v1)]很容易。
如果v2<-c(1,7)我希望将c(1,3,5,7)与v1保持一致。此外，v1[-match(v2,v1)]也能起到作用。
如果v2<-c(1,1)我希望将c(3,5,7,7)与v1保持一致。现在v1[-match(v2,v1)]返回[1]1 3 5 7 7。不是我想要的。

当答案输入时，我很可能会用头撞我的键盘，但现在我还没有得到最小的想法。

Answer 1

使用真正的递归函数可能有更好的方法，但我认为您可以通过for循环来实现：

v1 <- c(1, 1, 3, 5, 7, 7)
v2 <- c(1,1)
v1_keep <- v1

for (i in seq_along(v2)){
  v1_keep <- v1_keep[-match(v2[i], v1_keep)]
}

v1_keep
# [1] 3 5 7 7

Answer 2

您可以使用“vecsets”库中的vsetdiff（这将保留重复项，而不是setdiff)，方法如下：

library(vecsets)
v1 <- c(1,1,3,5,7,7)
v2.1 <- c(3,5)
> vsetdiff(v1, v2.1)
[1] 1 1 7 7
v2.2 <- c(1,7)
> vsetdiff(v1, v2.2)
[1] 1 3 5 7
v2.3 <- c(1,1)
> vsetdiff(v1, v2.3)
[1] 3 5 7 7