使用 dplyr 根据 R 中不同事件之间的条件和日期差异删除行

Question

我希望根据不同事件之间的几个条件和日期差异删除行，每个 ID。

我的数据是这样的

#dat
id  name                    date
10  "BREEDING"              2019-05-17
10  "OTHER"                 2020-01-01
11  "BREEDING"              2020-07-01
11  "GESTATION POSITIF"     2020-09-01
12  "BREEDING"              2020-06-26
12  "GESTATION NEGATIF"     2020-08-01
21  "OTHER"                 2018-06-20
21  "GESTATION POSITIF"     2018-10-15
22  "BREEDING"              2020-08-07
22  "GESTATION POSITIF"     2020-09-11

根据 ID，我希望对于那些名为“BREEDING”和“GESTATION”的人（无论是正数还是负数）计算事件“GESTATION”和事件“育种”。

那么如果日期差为34、35、36，则删除对象dat内符合该条件的BREEDING行。

我有一个循环解决方案正在完成这项工作，但我想改进它。我做了几次尝试，但都没有成功。基本上我认为正确的代码应该是“像”这样的

dat %>% 
group_by(id) %>% 
grepl("GESTATION",name) %>% #keep ids with an event gestation recorded
grepl("BREEDING",name) %>% #keep ids with an event breeding recorded
mutate(new_var = "date GESTATION"-"date BREEDING") %>%#per ids, compute de difference of date beetween events gestation event and breeding
filter(!(new_var %in% c(34:36))) %>% #if an event of breeding happened 35 days before the gestation event, +/- 1 day, remove 
ungroup()

最后我的结果应该是，对于这个例子，

#dat
id  name                    date
10  "BREEDING"              2019-05-17
10  "OTHER"                 2020-01-01
11  "BREEDING"              2020-07-01
11  "GESTATION POSITIF"     2020-09-01
12  "GESTATION NEGATIF"     2020-08-01
21  "OTHER"                 2018-06-20
21  "GESTATION POSITIF"     2018-10-15
22  "GESTATION POSITIF"     2020-09-11

Answer 1

这也可能不是最干净的解决方案，而是转向宽幅，然后回到长篇作品：

library(tidyverse)
library(lubridate)

dat %>%
  separate(name, into = c("name", "gest"), fill = "right") %>%
  pivot_wider(names_from = name, values_from = c(date, gest)) %>%
  mutate(date_BREEDING = if_else((date_GESTATION - date_BREEDING) %in% c(34, 35, 36), NA_Date_, date_BREEDING)) %>%
  pivot_longer(cols = c(date_BREEDING, date_OTHER, date_GESTATION), values_to = "date", values_drop_na = T) %>%
  select(-gest_BREEDING, -gest_OTHER) %>%
  mutate(name = str_sub(name, 6)) 

输出是：

     id gest_GESTATION name      date      
  <dbl> <chr>          <chr>     <date>    
1    10 NA             BREEDING  2019-05-17
2    10 NA             OTHER     2020-01-01
3    11 POSITIF        BREEDING  2020-07-01
4    11 POSITIF        GESTATION 2020-09-01
5    12 NEGATIF        GESTATION 2020-08-01
6    21 POSITIF        OTHER     2018-06-20
7    21 POSITIF        GESTATION 2018-10-15
8    22 POSITIF        GESTATION 2020-09-11

这具有将“GESTATION”是正数还是负数保存在单独变量中的额外优势。如果您不需要它并且想要在您的问题中指定所需的输出，您可以添加：

%>%
  mutate(name = if_else(is.na(gest_GESTATION), name, str_c(name, gest_GESTATION, sep = " "))) %>%
  select(-gest_GESTATION)