比较了部分R的两个帧

Question

我想按零件比较两个数据帧。这是我的数据帧的示例：

a1 <- data.frame(a = 1:5, b=letters[1:5])
a2 <- data.frame(a = c(1,6,3,4), b=letters[1:4])

我想编写一个函数，该函数在A1中找到两个顺序行，该函数也存在于数据框架A2中（两个列必须匹配）并将其保存在新框架中。

任何帮助将不胜感激。

Answer 1

dual.matches <- match(a1$a, a2$a) == match(a1$b, a2$b) 
sequential.dual.matches <- with(rle(dual.matches), rep(replace(values, lengths==1, FALSE), lengths))
a1[sequential.dual.matches, ]
#   a b
# 3 3 c
# 4 4 d