删除r中另一个data.frame中的data.frame行的确切行和频率

Question

考虑以下两个data.frames:

a1 <- data.frame(A = c(1:5, 2, 4, 2), B = letters[c(1:5, 2, 4, 2)])
a2 <- data.frame(A = c(1:3,2), B = letters[c(1:3,2)])

我想删除的确切行a1是在a2这样结果应该是:

A  B
4  d
5  e
4  d
2  b

请注意,2 ba1中的一行保留在最终结果中.目前,我使用循环语句,由于我的data.frames中有许多变量和数千行,因此变得非常慢.有没有内置函数来获得这个结果？

Answer 1

我想这与DWal 的解决方案类似，但在基础 R 中

a1_temp = Reduce(paste, a1)
a1_temp = paste(a1_temp, ave(seq_along(a1_temp), a1_temp, FUN = seq_along))

a2_temp = Reduce(paste, a2)
a2_temp = paste(a2_temp, ave(seq_along(a2_temp), a2_temp, FUN = seq_along))

a1[!a1_temp %in% a2_temp,]
#  A B
#4 4 d
#5 5 e
#7 4 d
#8 2 b