r - 查找数据帧中连续零后的第一个数字

Question

我有以下数据框

data <- tibble(ID=rep(c(1:2), each= 9), time = rep(1:9, 2), event = c(1,1,1,0,0,0,0,1,1,1,1,0,0,0,1,0,1,0))

我想检索在连续零之后具有“1”的每个主题的第一行，即第一个主题的 data.frame 中的第 8 行和第二个主题的 data.frame 中的第 15 行

Answer 1

我们可以使用 rle 选择每组中第一个连续零之后的第一行(ID)。

library(dplyr)

data %>%
 group_by(ID) %>%
 slice(with(rle(event == 0), sum(lengths[1:which.max(values)])) + 1)

#     ID  time event
#  <int> <int> <dbl>
#1     1     8     1
#2     2     6     1