R 如果在订单中匹配代码之前删除行

按"ID"分组后，将"matchcode"中1的位置设置为match，然后获取seq，并使用slice对行进行子集设置.如果没有 case ，nomatch将返回行数(n())，因此我们得到所有观察结果

library(dplyr)
df %>% 
  group_by(ID) %>%
  slice(seq_len(match(1, matchcode, nomatch = n()))) %>%
  ungroup

-输出

# A tibble: 9 × 4
  ID    matchcode address order
  <chr>     <dbl> <chr>   <int>
1 id1           0 a           1
2 id1           1 b           2
3 id2           0 d           1
4 id2           0 e           2
5 id2           1 f           3
6 id3           0 g           1
7 id3           0 h           2
8 id3           0 i           3
9 id4           1 j           1

还是filter块

df %>%
   group_by(ID) %>% 
   filter(cumsum(c(0, diff(matchcode))) >=0) %>%
   ungroup

-输出

# A tibble: 10 × 4
   ID    matchcode address order
   <chr>     <dbl> <chr>   <int>
 1 id1           0 a           1
 2 id1           1 b           2
 3 id1           0 c           3
 4 id2           0 d           1
 5 id2           0 e           2
 6 id2           1 f           3
 7 id3           0 g           1
 8 id3           0 h           2
 9 id3           0 i           3
10 id4           1 j           1