基于列表中是否包含一个多个变量来设置数据

Question

如果5列（5-10）中的任何一列在我的列表中包含一个因子（keep.list），我想要创建两个子集我的数据以及其中没有任何列包含keep.list中的任何内容的列。这里就是我到目前为止，但不能让它的子集的权利：

test.cols <- c(5:10) 
keep.list <- c("dog","cat","mouse","bird") 

data.sub.IN <- data.big[which(any(keep.list %in% data.big[test.cols])),] 

data.sub.NOT.IN <- data.big[which(any(keep.list !%in% data.big[test.cols])),] 

我觉得which()和any()可以帮助，但我可能是错的，我不知道如何处理“不包含”情况下，如通常的!命令不起作用。

Answer 1

可以使用apply做到这一点：

keep <- apply(data.big[test.cols], 1, function(r) any(r %in% keep.list)) 
data.sub.IN <- data.big[keep, ] 
data.sub.NOT.IN <- data.big[!keep, ] 

apply适用的功能将数据帧的每一行。在这种情况下，对于每一行，它检查该行中的任何项目是否在keep.list中。

Answer 2

我会和@ DavidRobinsons的回答一起去的，但是如果你想保持它的形式，你需要移动!。要取消%in%，您需要在逻辑运算符的第一部分之前加上!。

B <- 1:4 
A <- 3:6 
A %in% B 
[1] TRUE TRUE FALSE FALSE 
!A %in% B 
[1] FALSE FALSE TRUE TRUE 

因此，对于您的情况：

data.sub.NOT.IN <- data.big[which(any(!keep.list %in% data.big[test.cols])),] 

但同样，在这种情况下使用apply是一个更好的选择，我想。

编辑 基于@迪文的评论，这可能无法正常工作（硬说没有如数据集），你可能真的需要：

data.sub.NOT.IN <- data.big[which(!any(keep.list %in% data.big[test.cols])),]