我有这样的DF

df1 <- data.frame(ID=c(222717,321817,521917), Name=c("Bob","James","Eric"), Team=c("Badgers","Tigers","Possums"))
df2 <- data.frame(Badgers=c(222717,789423), Tigers=c(438283,978748), Possums=c(521917,251233))

我使用mapply在df2的相应Team列中检查df1的ID，如下所示

df1$result <- mapply(function(a,b) {b %in% df2[[a]]}, a=as.character(df1$Team), b=df1$ID)

我的问题是，现在有了新的df1，它们需要查找的ID列的数量可变，如下所示

newDf1 <- data.frame(ID1=c(222717,321817,521917), ID2=c(13998,978748,251233), Name=c("Bob","James","Eric"), Team=c("Badgers","Tigers","Possums"))

我曾尝试在mapply中使用grep执行此操作，但无法正常工作：

newDf1$result <- mapply(function(a,b) {b %in% df2[[a]]}, a=as.character(newDf1$Team), b=newDf1[grep("ID",names(newDf1))])

在这种情况下如何检查多个值呢？注意，正如我前面提到的，ID列的数量是可变的，因此，虽然下面的方法适用于我提供的示例newDf1（它只有两个ID列），但我需要适用于任意数量的ID列的方法。

newDf1$result <- mapply(function(a,b,c) {b %in% df2[[a]] | c %in% df2[[a]]}, a=as.character(newDf1$Team), b=newDf1$ID1, c=newDf1$ID2)