r - 检查一个数据帧的每一行是否包含在另一个数据帧中

Question

我写了以下函数，它有效。但是当df1时速度很慢有 1700 行，和 df2有 70000 行。有没有办法提高效率？

rowcheck <- function(df1, df2){
         apply(df1, 1, function(x) any(apply(df2, 1, function(y) all(y==x))))
}

我编写了这个函数来应用的一个例子是:我想检查 df1 中的每一行是否作为 df2 中的一行包含:

df1=data.frame(a=c(1:3),b=c("a","b","c"))
df2=data.frame(a=c(1:6),b=rep(c("a","b","c"),2))

对于 df1 的每一行，我想检查它是否作为 df2 中的一行包含。我想将该函数返回为长度为 nrow(df1) 的逻辑向量。

谢谢您的帮助。

Answer 1

一种方法是将行粘贴在一起，并将它们与 %in% 进行比较。 .结果是长度为 nrow(df1) 的逻辑向量， 按照要求。

do.call(paste0, df1) %in% do.call(paste0, df2)
# [1] TRUE TRUE TRUE