如何按r中的因子计算间隔天数

Question

我有这个数据集，我想计算每个ID的持续时间。我该怎么做？例如，如果日期从26日跳到30日，我也希望那些日子也被计算在内。我尝试使用summarize（）和gengregate（），但没有成功。

library(lubridate)
library(dplyr)

id <- as.factor(c("A", "A", "A", "A", "A", "B", "B", "B", "B", "B"))
date <- ymd_hms(c("2017-11-26 09:00:00", "2017-11-26 09:05:00", "2017-11-30 09:00:00", 
                  "2017-11-30 09:05:00", "2017-12-02 09:00:00", "2017-11-26 09:00:00", 
"2017-11-26 09:05:00", "2017-11-30 09:00:00", "2017-11-30 09:05:00", "2017-12-04 09:00:00"))

df <- tibble(id,date)

预期输出示例

> output
id   days
A     7
B     9

Answer 1

df %>% 
  group_by(id) %>% 
  summarise(days=difftime(max(date),min(date), units = "day"))