选择特定事件之后和时间差内的行

Question

我无法让代码工作。我希望在上一行中<maxHistory>的某个值之后得到下一行。但是如果时间距离低于某个阈值，我只想保存它，我想测试不同的变化 下面是一个示例数据和我尝试使用dplyr。但结果不是我想要的。

factor

有什么建议吗？

Answer 1

这是你想要的吗？

lapply(1:5,function(x) df_stackOverflow %>% group_by(ID) %>%
                        mutate(differ = as.numeric(difftime(time,lag(time)),unit="days"),prev = lag(Factor)) %>%
                        filter(prev=="B" & differ < x))

通过分组ID获取因子和时间的滞后，并通过lapply循环超过您想要的任何阈值。结果存储在列表中。