根据另一列的条件提取值

case_number <- c("1", "1", "2", "2", "2", "3", "3") 
type <- c("STD", "STD2", "STD", "STD3", "STD2", "STD", "STD2") 
date <- as.Date(c('2008-11-1','2009-3-25','2010-3-14',"2010-10-14","2010-11-14", '2015-3-14', '2015-4-15')) 

data <- data.frame(case_number,type, date) 

我想知道如何提取独特的case_number其中包含STD and STD2按日期排序？

在这种情况下，它将是 1 和 3，因为对于 2，STD3发生在之间STD1 and STD2.

假设每个case_number会有两个值，另一个选择是检查"STD" and "STD2"并选择差值等于 1 的组。

check_fun <- function(x) {
   abs(diff(c(which.max(x == "STD"), which.max(x == "STD2")))) == 1
}

library(dplyr)

data %>% group_by(case_number) %>% filter(check_fun(type))

# case_number type  date      
#  <fct>       <fct> <date>    
#1 1           STD   2008-11-01
#2 1           STD2  2009-03-25
#3 3           STD   2015-03-14
#4 3           STD2  2015-04-15

或者如果您只需要独特的case_number

data %>% 
  group_by(case_number) %>% 
  filter(check_fun(type)) %>% 
  pull(case_number) %>% 
  unique

#[1] 1 3
#Levels: 1 2 3