英文:
Time since event calculations in R
问题
我有以下表格。我想计算自最近一次接受以来的天数。例如，用户1多次接受，但只有其中一次是最近的。我想做两件事：
标记一个简单的真值，表示mostRecent == TRUE/FALSE，并计算从那次接受到今天日期的天数。
用户 状态 邀请日期<fct> <fct> <date>1 1 接受 2021-09-092 1 拒绝 2021-09-103 1 接受 2021-09-304 4 接受 2021-11-105 1 接受 2021-11-226 4 拒绝 2021-11-29
我已包含重新创建表格的代码。
df <- tribble(~user, ~status_name, ~invitationDate,"1", "拒绝", "2021-07-13","4", "拒绝", "2021-07-31","1", "接受", "2021-09-09","1", "拒绝", "2021-09-10","1", "接受", "2021-09-30","4", "接受", "2021-11-10","3", "拒绝", "2021-11-12","2", "拒绝", "2021-11-18","1", "接受", "2021-11-22","4", "拒绝", "2021-11-29") %>%mutate(user = as.factor(user),status_name = as.factor(status_name),invitationDate = as.Date(invitationDate, format = "%Y-%m-%d")) %>%group_by(user) %>%mutate(cumsum = cumsum(status_name == "接受")) %>%filter(cumsum > 0) %>%select(-cumsum)
英文:
I have the below table. I want to count the number of days since the most recent acceptance. So, for example, user 1 accepted on multiple occasions but only one of them is the most recent. I want to do 2 things:
Mark a simple truth value indicating mostRecent == TRUE/FALSE and calculate the number of days from that acceptance to today's date.
user status_name invitationDate<fct> <fct> <date>1 1 Accepted 2021-09-092 1 Declined 2021-09-103 1 Accepted 2021-09-304 4 Accepted 2021-11-105 1 Accepted 2021-11-226 4 Declined 2021-11-29
I have included the code to recreate the table below.
df <- tribble(~user, ~status_name, ~invitationDate,"1", "Declined", "2021-07-13","4", "Declined", "2021-07-31","1", "Accepted", "2021-09-09","1", "Declined", "2021-09-10","1", "Accepted", "2021-09-30","4", "Accepted", "2021-11-10","3", "Declined", "2021-11-12","2", "Declined", "2021-11-18","1", "Accepted", "2021-11-22","4", "Declined", "2021-11-29") %>%mutate(user = as.factor(user),status_name = as.factor(status_name),invitationDate = as.Date(invitationDate, format = "%Y-%m-%d")) %>%group_by(user) %>%mutate(cumsum = cumsum(status_name == "Accepted")) %>%filter(cumsum > 0) %>%select(-cumsum)
答案1
得分: 4
我们可以通过子集化 'invitationDate' 来创建逻辑索引，其中 'status_name' 为 Accepted，然后获取 max 并与 'invitationDate' 进行比较。
library(dplyr)df %>%mutate(mostRecent = invitationDate %in%max(invitationDate[status_name == "Accepted"]),Diff = Sys.Date() - invitationDate[mostRecent]) %>%ungroup
英文:
We could create the logical index by subsetting the 'invitationDate' where the 'status_name' is Accepted, get the max and check with the invitationDate
library(dplyr)df %>%mutate(mostRecent = invitationDate %in%max(invitationDate[status_name == "Accepted"]),Diff = Sys.Date() - invitationDate[mostRecent]) %>%ungroup</details>
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论