[英]Selecting rows that meet a condition depending on other rows in R
一种方法是计算感染事件之间的时间差( event_diff
)。 然后, incident
将发生在此差异大于 2 年或差异为 0 时(假设多个测试未在同一日期进行)。 现在看这个,我怀疑有更好的替代解决方案。
df <- data.frame(
patient_id = c(1,1,1,1,1,1,2,2,2,2),
infection = c("no", "yes", "yes", "no", "yes", "yes", "yes", "no", "no", "yes"),
date = c("2005-02-22", "2005-04-26", "2005-05-06", "2006-05-22", "2007-08-19", "2007-12-15", "2005-10-24", "2005-11-11", "2006-07-12", "2007-12-01")
)
df$date <- as.Date(df$date, "%Y-%m-%d")
library(dplyr)
df %>%
group_by(patient_id, infection) %>%
mutate(event_diff = coalesce(date - lag(date), 0)) %>%
mutate(incident = ifelse(infection == "yes" & (event_diff == 0 | event_diff > (365*2)), "yes", "no"))
patient_id infection date event_diff incident
<dbl> <fct> <date> <drtn> <chr>
1 1 no 2005-02-22 0 days no
2 1 yes 2005-04-26 0 days yes
3 1 yes 2005-05-06 10 days no
4 1 no 2006-05-22 454 days no
5 1 yes 2007-08-19 835 days yes
6 1 yes 2007-12-15 118 days no
7 2 yes 2005-10-24 0 days yes
8 2 no 2005-11-11 0 days no
9 2 no 2006-07-12 243 days no
10 2 yes 2007-12-01 768 days yes
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.