我有一个这样的数据帧:
id <- c(rep(1234, 6), rep(5678, 10), rep(9101, 5))
date <- seq(as.Date("2020-01-01"), as.Date("2020-01-21"), by = "days")
mode <- c(1, 1, 1, 2, 2, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, 1, 1, 2, 2, 2)
df <- data.frame(id, date, mode)
我想按id分组，并提取MODE列中至少有三个连续2的所有行，如果这些2之前至少有三个连续的1.
我对上面的数据帧的预期输出是
谢谢.
该方法保持至少有三个连续的2紧跟在至少三个连续的1之后的行.
library(dplyr)
df %>%
group_by(id, grp = data.table::rleid(mode)) %>%
semi_join(summarise(., mode = mode[1], n = n()) %>%
filter(mode == 2 & n >= 3 & lag(mode) == 1 & lag(n) >= 3),
by = c("id", "grp")) %>%
ungroup() %>%
select(-grp)
# # A tibble: 7 × 3
# id date mode
# <dbl> <date> <dbl>
# 1 1234 2020-01-04 2
# 2 1234 2020-01-05 2
# 3 1234 2020-01-06 2
# 4 5678 2020-01-13 2
# 5 5678 2020-01-14 2
# 6 5678 2020-01-15 2
# 7 5678 2020-01-16 2