從數據幀中刪除行

Question

我有此data.frame：

set.seed(1) 
df <- data.frame(id1=LETTERS[sample(26,100,replace = T)],id2=LETTERS[sample(26,100,replace = T)],stringsAsFactors = F) 

這vector：

vec <- LETTERS[sample(26,10,replace = F)] 

我想從df除去任何行其或者df$id1或df$id2不在vec

有沒有更快的方式找到符合這個條件的行索引而不是t他的：

rm.idx <- which(!apply(df,1,function(x) all(x %in% vec))) 

Answer 1

在列上循環可能比在行上循環更快。因此，使用lapply遍歷列，創建邏輯vector S的%in%一個list，使用Reduce與|檢查是否有真值對應於每個行並用它來子集「DF」

df[Reduce(`|`, lapply(df, `%in%`, vec)),] 

如果我們需要兩個元素，然後用&

​​

Answer 2

其實

更換

也快。

Answer 3

我以前dplyr這樣的腳本

df1 <- df %>% filter(!(df$id1 %in% vec)|!(df$id2 %in% vec))