GROUP BY和使用dplyr

Question

過濾數據管理舉一個簡單的數據集

a <- c(1,2,3,4,5,6,7,8) 
b <- c(1,2,2,1,2,2,2,2) 
c <- c(1,1,1,2,2,2,3,3) 
d <- data.frame(a,b,c) 

現在我想我的過濾數據，使我們group_by(c)，然後刪除在沒有b=1發生的所有數據。

這樣的結果（e）應該像d但沒有兩個底部行

我一直在使用

e <- d %>% 
    group_by(c) %>% 
    filter(n(b)>1) 

的輸出應包括以下綠色數據和紅色刪除數據嘗試

Answer 1

嘗試

d %>% 
    group_by(c) %>% 
    filter(any(b == 1)) 

其中給出：

#Source: local data frame [6 x 3] 
#Groups: c 
# 
# a b c 
#1 1 1 1 
#2 2 2 1 
#3 3 2 1 
#4 4 1 2 
#5 5 2 2 
#6 6 2 2 

Answer 2

您可以嘗試

df <- d %>% mutate(test = ifelse((b != 1) == T, 0, 1)) %>% group_by(c) %>% 
      mutate(test = sum(test)) %>% filter(test != 0) %>% select(-test) 

這將產生

# a b c 
#1 1 1 1 
#2 2 2 1 
#3 3 2 1 
#4 4 1 2 
#5 5 2 2 
#6 6 2 2