您可以使用filter()语句来完成此操作。在下面的代码中，过滤器正在查找四个学年指定中的每一个都存在于特定id中的组。例如，"17-18 %in% school_year，它在school_year的值中为每个特定id查找"17-18"。

library(dplyr)
dat <- tibble::tribble(
  ~id,  ~grade, ~school_year,
1,  9,  "17-18",
1,  10, "18-19",
1,  11, "19-20",
1,  12, "20-21",
2,  9,  "17-18",
2,  10, "18-19",
2,  11, "20-21",
3,  11, "20-21",
3,  12, "21-22",
4,  9,  "17-18",
4,  10, "18-19",
4,  11, "19-20",
4,  12, "20-21")

下面是过滤后的数据，只包括满足条件的id。

filt_dat <- dat %>% 
  group_by(id) %>% 
  filter("17-18" %in% school_year & "18-19" %in% school_year 
         & "19-20" %in% school_year & "20-21" %in% school_year) 
filt_dat
#> # A tibble: 8 × 3
#> # Groups:   id [2]
#>      id grade school_year
#>   <dbl> <dbl> <chr>      
#> 1     1     9 17-18      
#> 2     1    10 18-19      
#> 3     1    11 19-20      
#> 4     1    12 20-21      
#> 5     4     9 17-18      
#> 6     4    10 18-19      
#> 7     4    11 19-20      
#> 8     4    12 20-21

如果你只想要唯一的单个id值，你可以这样做：

filt_dat %>% 
  ungroup %>% 
  select(id) %>% 
  pull %>% 
  unique
#> [1] 1 4

编辑：更新问题的答案

如果一个观察必须在19-20中才能在18-19中计数，那么你可以弄清楚id是否在每一年中，将数据旋转更长的时间，然后在年内值上取累积乘积。

dat %>% 
  group_by(id) %>% 
  summarise(in_20_21 = "20-21" %in% school_year, 
            in_19_20 = "19-20" %in% school_year, 
            in_18_19 = "18-19" %in% school_year, 
            in_17_18 = "17-18" %in% school_year) %>% 
  pivot_longer(-id, names_to="yr", values_to="surv") %>% 
  group_by(id) %>% 
  mutate(surv = cumprod(surv)) %>% 
  group_by(yr) %>% 
  summarise(n=sum(surv))
#> # A tibble: 4 × 2
#>   yr           n
#>   <chr>    <dbl>
#> 1 in_17_18     2
#> 2 in_18_19     2
#> 3 in_19_20     2
#> 4 in_20_21     4

如果一个观测值不一定要在19-20中才能在18-19中计数，那么你可以过滤20-21中的观测值，然后只计算每年的观测值：

dat %>% 
  group_by(id) %>% 
  summarise(in_20_21 = "20-21" %in% school_year, 
            in_19_20 = "19-20" %in% school_year, 
            in_18_19 = "18-19" %in% school_year, 
            in_17_18 = "17-18" %in% school_year) %>% 
  filter(in_20_21) %>% 
  pivot_longer(-id, names_to="yr", values_to="surv") %>% 
  group_by(yr) %>% 
  summarise(n=sum(surv))
#> # A tibble: 4 × 2
#>   yr           n
#>   <chr>    <int>
#> 1 in_17_18     3
#> 2 in_18_19     3
#> 3 in_19_20     2
#> 4 in_20_21     4

创建于2023年3月20日，使用reprex v2.0.2