Фильтрация по сгруппированной переменной

Question

У меня есть фрейм данных:

df <- data.frame(
          Group=c('A','A','A','B','B','B'),
          Activity = c('Act1','Act4', 'Act3','Act1', 'Act2','Act3')
        )

Я хочу отфильтровать только те группы, которые содержат обе операции Act1 и Act2.Следующий код возвращает нулевые значения:

df %>% group_by(Group) %>% filter(Activity == 'Act1' & Activity == 'Act2')

Если я использую df %>% group_by(Group) %>% filter(Activity %in% c('Act1' , 'Act2') ), он также возвращает группу А, которая мне не нужна.

Как я могу получить только те группы, которыеобязательно содержат оба действия?

Answer 1

Вам нужно обернуть его any

library(dplyr)
df %>% 
  group_by(Group) %>% 
  filter(any(Activity == 'Act1')  & any(Activity == 'Act2'))

# Group Activity
#  <fct> <fct>   
#1 B     Act1    
#2 B     Act2    
#3 B     Act3 

Используя ту же логику в базовой опции R ave

df[as.logical(ave(df$Activity, df$Group, 
              FUN = function(x) any(x == 'Act1')  & any(x == 'Act2'))), ]

---

Вы можете получить тот же результат, используяall

df %>% 
  group_by(Group) %>% 
  filter(all(c("Act1", "Act2") %in% Activity))

и аналогичные с ave

df[as.logical(ave(df$Activity, df$Group, 
           FUN = function(x) all(c("Act1", "Act2") %in% x))),]


# Group Activity
#4     B     Act1
#5     B     Act2
#6     B     Act3