Gruppe durch und Filterdatenmanagement dplyr

Question

mit Nehmen Sie ein einfaches Daten-Set

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) 

jetzt will ich meine Daten filtern, so dass wir group_by(c) und dann alle Daten entfernen, wo kein b=1 auftritt.

So sind die Ergebnisse (e) sollte wie d aussehen, aber ohne die beiden unteren Reihen

ich versucht habe

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

unter Verwendung der Ausgabe der Daten in grün unten enthalten soll und die Daten in rot entfernen

Answer 1

Versuchen

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

Welche gibt:

#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

Sie können versuchen,

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

die

# 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