时间戳

首页 > 解决方案 > 自上次活动以来经过的代码天数

r - 自上次活动以来经过的代码天数

问题描述

我想对自用户上次活动以来经过的天数进行编码以进行流失分析。

我尝试了在相关主题中找到的代码，但它不起作用：

da = da %>%
  arrange(dayid) %>%
group_by(dayid) %>%
  mutate(dayssincelastactivity = c(NA, diff(dayid))

可以说这是数据。active 指示用户在这一天是否处于活动状态。我想添加变量 dayssincelastactivity，它表示自用户最后一个活动日以来经过的天数。

da <- data.frame(dayid = c(1,2,3,4,5,6,7,8), active = c(1,1,0,0,0,1,1,1), dayssincelastactivity = c(1,1,2,3,4,1,1,1))

da
  dayid active dayssincelastactivity
1     1      1                     1
2     2      1                     1
3     3      0                     2
4     4      0                     3
5     5      0                     4
6     6      1                     1
7     7      1                     1
8     8      1                     1

标签： rtransformdplyr

解决方案

cumsum使用和seq_along每个组创建一个分组变量。

with(da, ave(dayid, cumsum(active == 1), FUN = seq_along))
#[1] 1 1 2 3 4 1 1 1

你也可以把它翻译成dplyr

library(dplyr)

da %>%
  group_by(group = cumsum(active == 1)) %>%
  mutate(new_val = row_number()) %>%
  ungroup() %>%
  select(-group)

#  dayid active dayssincelastactivity new_val
#  <dbl>  <dbl>                 <dbl>   <int>
#1     1      1                     1       1
#2     2      1                     1       1
#3     3      0                     2       2
#4     4      0                     3       3
#5     5      0                     4       4
#6     6      1                     1       1
#7     7      1                     1       1
#8     8      1                     1       1

推荐阅读