過濾按組，並保持在那裏的條件是所有實例

Question

我發現類似

東西的example從本質上講，我需要保持一個組中的所有項目，其中等於一些因素用戶。

例如這裏是我的初始數據框。

data <- data.frame(user = c("a","a",'b',"b",'c',"c","a","a","a","d","d","d"), 
        invoiceNum =c(1,1,1,1,1,1,2,2,2,2,2,2)) 

我需要保留所有具有用戶d的發票。

輸出將如下所示：

user invoiceNum 
1 a   2 
2 a   2 
3 a   2 
4 d   2 
5 d   2 
6 d   2 

我試着寫了下面的代碼，但它不工作，並給了我下面的

data%>% group_by(invoiceNum)%>%dplyr::filter(user == "d") 


    user invoiceNum 
    <fctr>  <dbl> 
1  d   2 
2  d   2 
3  d   2 

Answer 1

試試這個在base R：

data[data$invoiceNum %in% unique(data[data$user=="d",]$invoiceNum),] 

# user invoiceNum 
#7  a   2 
#8  a   2 
#9  a   2 
#10 d   2 
#11 d   2 
#12 d   2 

所以，你先找到那些invoiceNum在用戶d是出現

• unique(data[data$user=="d",]$invoiceNum)

，然後篩選出與提取invoiceNum行。

---

編輯

如果您想爲多個用戶執行相同：

usr <- c("d", "a") 
data[data$invoiceNum %in% unique(data[data$user %in% usr,]$invoiceNum),] 

Answer 2

我們可以使用%in%

data %>% 
    group_by(invoiceNum) %>% 
    filter('d' %in% user) 
# user invoiceNum 
# <fctr>  <dbl> 
#1  a   2 
#2  a   2 
#3  a   2 
#4  d   2 
#5  d   2 
#6  d   2