我有这样的DFS
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"))
我曾try 在我的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)