基于分组数据帧中的两个条件的子集

Question

在我的data 中，我尝试对唯一的study 值进行子集化，其中reporting 既是subscale 又是composite。

在这个data 中，所需的输出将是study==1 的行。我尝试了以下但没有成功。有什么解决办法吗？

library(tidyverse)
m="
study  reporting
1      subscale
1      composite
2      subscale
2      subscale
3      composite"

data <- read.table(text = m, h=T)

data %>% group_by(study) %>% 
  filter(reporting=="composite"&reporting=="subscale") # Doesn't return anything

Answer 1

你可以试试-

library(dplyr)

data %>% 
  group_by(study) %>% 
  filter(all(c('composite', 'subscale') %in% reporting)) %>%
  ungroup()

#  study reporting
#  <int> <chr>    
#1     1 subscale 
#2     1 composite