在列中第一次出现值后删除行及其后续行(使用 dplyr)

感谢您在问题@taimishu中更新详细信息；如果我理解正确，以下是一个潜在的解决方案:

library(tidyverse)
df <- data.frame(
  id = c(1001, 1001, 1002, 1002, 1002, 1005, 1005, 1005, 1005, 1005),
  name = c("monkey", "gorilla", "chimp", "monkey", "giraffe", "tarzan", "whale", "princess", "phone", "kindle"),
  char = c(0, 1, 0, 1, 0, 0, 0, 1, 0, 0))
df
#>      id     name char
#> 1  1001   monkey    0
#> 2  1001  gorilla    1
#> 3  1002    chimp    0
#> 4  1002   monkey    1
#> 5  1002  giraffe    0
#> 6  1005   tarzan    0
#> 7  1005    whale    0
#> 8  1005 princess    1
#> 9  1005    phone    0
#> 10 1005   kindle    0

df_desired <- data.frame(
  id = c(1001, 1002, 1005, 1005),
  name = c("monkey", "chimp", "tarzan", "whale"),
  char = c(0, 0, 0, 0))
df_desired
#>     id   name char
#> 1 1001 monkey    0
#> 2 1002  chimp    0
#> 3 1005 tarzan    0
#> 4 1005  whale    0

df_filtered <- df %>%
  group_by(id) %>%
  filter(cummax(char) < 1)
df_filtered
#> # A tibble: 4 × 3
#> # Groups:   id [3]
#>      id name    char
#>   <dbl> <chr>  <dbl>
#> 1  1001 monkey     0
#> 2  1002 chimp      0
#> 3  1005 tarzan     0
#> 4  1005 whale      0

all_equal(df_desired, df_filtered)
#> [1] TRUE

^{由reprex package(v2.0.1)于2022-08-10创建}