查找连续行中日期之间的差异

Question

我知道以前已经有人问过这个问题，但是我发现的答案似乎依赖于POSIXct而我不明白为什么我不能在日期上做到这一点

我有类似的数据

Person Event VisitDate
1       RFA   2004-06-04
1       EMR   2016-06-03
1       Nil   2016-06-05

我想在一个单独的列中获得日期之间的差异（最终将所有Person id上的日期差异平均）。

预期产量：

人员事件VisitDate日期的天数差异1 RFA 2004-06-04
1 EMR 2016-06-03 4383 1无2016-06-05 2

到目前为止，我已经使用：

EndoSubsetOnSurveil %>% 
  arrange(Person, as.Date(EndoSubsetOnSurveil$VisitDate, '%d/%m/%y')) %>%
  difftime(VisitDate[1:(length(VisitDate)-1)] , VisitDate[2:length(VisitDate)])

但是我得到了错误

Error in as.POSIXct.default(time1, tz = tz) : 
  do not know how to convert 'time1' to class “POSIXct”

Answer 1

说明：

（i）as.Date中提供的格式应更改为%Y-%m-%d 。 （ii）如果您希望将变量识别为as.Date，则应将其更改为as.Date。 在您的代码中，它仅用于安排数据库，但以后无法识别。 （iii）使用滞后效应更为有用。

码：

我认为与第二个块相比，最后一个块输出是您想要的。

# SAMPLE DATA -------------------------------------------------------------  
EndoSubsetOnSurveil <-
  data.frame(Person = c(1,1,2,2), 
             VisitDate = c("2004-06-04", "2016-06-03", "2016-07-01",
                           "2016-08-01"))
EndoSubsetOnSurveil$VisitDate <-
  as.Date(EndoSubsetOnSurveil$VisitDate, '%Y-%m-%d')

# DIFFERENCE BETWEEN VISIT WITHOUT GROUPING -------------------------------  
library(dplyr)
EndoSubsetOnSurveil %>% arrange(Person, VisitDate) %>%
  mutate(diffDate = difftime(VisitDate, lag(VisitDate,1)))

# DIFFERENCE BETWEEN VISIT BY PATIENT -------------------------------------  
EndoSubsetOnSurveil %>% arrange(Person, VisitDate) %>% group_by(Person) %>%
  mutate(diffDate = difftime(VisitDate, lag(VisitDate,1))) %>% ungroup()