袋子差异（类似于setdiff（）但不适用于集合）

Question

在R中，是否存在一些简单的方法来执行多组（即“bag”）差异，类似于setdiff()，但保留了输入向量中的顺序和多重性？

例如，假设x <- c(1,2,2,3,1,5,4,4,5,3)和y <- c(2,1,5,5)。我正在寻找函数bagdiff()，使得bagdiff(x,y)是c(2,3,1,4,4,3)，即x中的y的元素的第一次出现已被删除，具有多重性。

（在我的实际任务，我不会很在意的输出顺序，所以唯一要紧的是多重性是正确的，但一般下令情况下的确显得值得解决。）

Answer 1

有一个sets模块接近你所描述的。像这样的：

library(sets) 
gset_difference(as.gset(x), as.gset(y)) 
# gives 
{1 [1], 2 [1], 3 [2], 4 [2]}