Question

我有一系列日期（他们是课程日期），表示有人做某事的日期：

    mytimes = as.Date(c("2014-08-15", "2014-08-29", "2014-08-01", "2014-09-19", "2014-10-31"))

如何计算这些日期之间的时间，然后计算日期之间的中间时间？

例如，我可以计算出最早日期之后的日子：

    > sort(mytimes) - min(mytimes)
    Time differences in days
    [1]  0 14 28 49 91

但我希望得到间隔：0 14 14 21 42

我有一个data.frame，我有多个用户/人，每次登录系统都有一个条目。我想总结一下登录之间的间隔。我希望有一些很好的方法来做到这一点...我可以通过计算总时间和除以条目数来计算平均时间，但我也想要实际分布，中位数等。理想情况下，我可以使用dplyr来汇总用户分组的数据。

编辑：我刚发现滞后

因此，我可以这样做：

   dataset <- data.frame(ID = c(rep(1, 5), rep(2, 5)), times = rep(mytimes, 2))

    dataset %>% 
     arrange(ID, times) %>%
     group_by(ID) %>%
     mutate(diff_shift = times - lag(times))


# A tibble: 10 x 3
# Groups:   ID [2]
      ID times      diff_shift
   <dbl> <date>     <time>    
 1  1.00 2014-08-01 <NA>      
 2  1.00 2014-08-15 14        
 3  1.00 2014-08-29 14        
 4  1.00 2014-09-19 21        
 5  1.00 2014-10-31 42        
 6  2.00 2014-08-01 <NA>      
 7  2.00 2014-08-15 14        
 8  2.00 2014-08-29 14        
 9  2.00 2014-09-19 21        
10  2.00 2014-10-31 42

Answer 1

基础R答案只是

> diff(sort(mytimes))
Time differences in days
[1] 14 14 21 42
> median(diff(sort(mytimes)))
Time difference of 17.5 days

您可能希望在开始时添加0，具体取决于您正在做什么。

Answer 2

使用dplyr，您可以根据示例数据执行以下操作。

但您需要注意，根据您的data.frame的外观，您需要添加group_by个用户ID或更多变量。

library(dplyr)
df <- data_frame(mytimes = as.Date(c("2014-08-15", "2014-08-29", "2014-08-01", "2014-09-19", "2014-10-31")))
df %>% 
  # group_by(???)
  arrange(mytimes) %>% 
  mutate(time_diff = mytimes - lag(mytimes))

  mytimes    time_diff
  <date>     <time>   
1 2014-08-01 NA       
2 2014-08-15 14       
3 2014-08-29 14       
4 2014-09-19 21       
5 2014-10-31 42

R：如何将日期矢量转换为这些日期之间的间隔？

2 个答案: