<分区>
我正在尝试计算每个 ID 的 # 个连续非事件天数 (consecDaysInactive)。
我已经创建了一个指标变量 inactive，它在 id 不活动的日子里为 1，在事件的时候为 0。我还有一个 id 变量和一个 date 变量。我的分析数据集将有数十万行，因此效率很重要。
我要创建的逻辑如下:
- 根据 id，如果用户处于事件状态，
consecDaysInactive= 0 - 每个 id，如果用户不活跃，并且在前一天活跃，
consecDaysInactive= 1 - 每个 id，如果用户在前一天不活跃，
consecDaysInactive= 1 + # 前连续不活跃的天数 consecDaysInactive应该为 id 的新值重置为 0。
我已经能够创建一个累计和，但无法在 >= rows of inactive==0 之后将其重置为 0。
我在下面说明了我想要的结果 (consecDaysInactive)，以及我能够以编程方式实现的结果 (bad_consecDaysInactive)。
library(dplyr)
d <- data.frame(id = c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2), date=as.Date(c('2017-01-01','2017-01-02','2017-01-03','2017-01-04','2017-01-05','2017-01-06','2017-01-07','2017-01-08','2017-01-01','2017-01-02','2017-01-03','2017-01-04','2017-01-05','2017-01-06','2017-01-07','2017-01-08')), inactive=c(0,0,0,1,1,1,0,1,0,1,1,1,1,0,0,1), consecDaysInactive=c(0,0,0,1,2,3,0,1,0,1,2,3,4,0,0,1))
d <- d %>%
group_by(id) %>%
arrange(id, date) %>%
do( data.frame(., bad_consecDaysInactive = cumsum(ifelse(.$inactive==1, 1,0))
)
)
d
其中 consecDaysInactive 为每个连续的非事件日迭代 +1，但在用户活跃的每个日期重置为 0，并且为新的 id 值重置为 0。如下面的输出所示，我无法将 bad_consecDaysInactive 重置为 0——例如行
id date inactive consecDaysInactive bad_consecDaysInactive
<dbl> <date> <dbl> <dbl> <dbl>
1 1 2017-01-01 0 0 0
2 1 2017-01-02 0 0 0
3 1 2017-01-03 0 0 0
4 1 2017-01-04 1 1 1
5 1 2017-01-05 1 2 2
6 1 2017-01-06 1 3 3
7 1 2017-01-07 0 0 3
8 1 2017-01-08 1 1 4
9 2 2017-01-01 0 0 0
10 2 2017-01-02 1 1 1
11 2 2017-01-03 1 2 2
12 2 2017-01-04 1 3 3
13 2 2017-01-05 1 4 4
14 2 2017-01-06 0 0 4
15 2 2017-01-07 0 0 4
16 2 2017-01-08 1 1 5
我也考虑过(并尝试过)在 group_by() 和 do() 中增加一个变量，但是因为 do() 不是t 迭代，我无法让我的计数器超过 2:
d2 <- d %>%
group_by(id) %>%
do( data.frame(., bad_consecDaysInactive2 = ifelse(.$inactive == 0, 0, ifelse(.$inactive==1,.$inactive+lag(.$inactive), .$inactive))))
d2
产生了，如上所述:
id date inactive consecDaysInactive bad_consecDaysInactive bad_consecDaysInactive2
<dbl> <date> <dbl> <dbl> <dbl> <dbl>
1 1 2017-01-01 0 0 0 0
2 1 2017-01-02 0 0 0 0
3 1 2017-01-03 0 0 0 0
4 1 2017-01-04 1 1 1 1
5 1 2017-01-05 1 2 2 2
6 1 2017-01-06 1 3 3 2
7 1 2017-01-07 0 0 3 0
8 1 2017-01-08 1 1 4 1
9 2 2017-01-01 0 0 0 0
10 2 2017-01-02 1 1 1 1
11 2 2017-01-03 1 2 2 2
12 2 2017-01-04 1 3 3 2
13 2 2017-01-05 1 4 4 2
14 2 2017-01-06 0 0 4 0
15 2 2017-01-07 0 0 4 0
16 2 2017-01-08 1 1 5 1
如您所见，我的迭代器 bad_consecDaysInactive2 重置为 0，但不会递增超过 2!如果有 data.table 解决方案，我也很乐意听到。