r - 袋差(类似于 setdiff() 但不适用于集合)

Question

在 R 中，是否有一些简单的方法来进行多集(即“袋子”)差异，类似于 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) ，即 y 的元素的第一次出现在 x已被删除，具有多重性。

(在我的实际任务中，我不会真正关心输出的顺序，所以只有多重性正确才重要，但一般的有序情况似乎值得解决。)

Answer 1

有一个sets接近你描述的模块。就像是:

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