这是我正在使用的数据集的示例
library(tidyverse)
id <- c(1,1,1,2,2,2,3,3,4)
date <- c("2020-01-01","2020-02-04", "2021-06-08","2022-05-08","2021-08-09","2021-11-29","2020-04-12", "2022-09-12", "2022-09-22")
df <- data.frame(id,date)
# A tibble: 9 × 2
id date
<dbl> <chr>
1 1 2020-01-01
2 1 2020-02-04
3 1 2021-06-08
4 2 2022-05-08
5 2 2021-08-09
6 2 2021-11-29
7 3 2020-04-12
8 3 2022-09-12
9 4 2022-09-22
我想按ID值对这些观察结果进行分组,并查看日期,以根据彼此相隔90天的天数分配另一个ID,如下所示
# A tibble: 9 × 3
id date ep_id
<dbl> <chr> <dbl>
1 1 2020-01-01 1
2 1 2020-02-04 1
3 1 2021-06-08 2
4 2 2022-05-08 2
5 2 2021-08-09 1
6 2 2021-11-29 2
7 3 2020-04-12 1
8 3 2022-09-12 2
9 4 2022-09-22 1
我不能绞尽脑汁go 做这件事.我需要能够添加EP_ID从1:N取决于有多少日期落在90天内彼此.