r - 如何从分组数据中的最后一个日期条目中减去第一个日期条目并控制输出格式

这个问题与另一个线程中提出的问题非常相似，可以找到here。我正在尝试实现类似的目标：在组（事件）内从最后一个日期减去第一个日期。我正在使用该线程的答案中提供的 dplyr 包和代码。从最后日期中减去第一个日期是可行的，但它并不能提供令人满意的结果；由此产生的时间差以数字显示，并且不同时间单位之间似乎没有区别（例如，分钟和小时）-->前两个事件中的减法是正确的，但在第三个事件中则不是，即应该是分钟。如何通过 dplyr 操纵输出，以便所得减法实际上正确反映了时间差？下面您将找到我的数据示例（仅 1 组）和我使用的代码：

    df<- structure(list(time = structure(c(1428082860, 1428083340, 1428084840, 
1428086820, 1428086940, 1428087120, 1428087240, 1428087360, 1428087480, 
1428087720, 1428088800, 1428089160, 1428089580, 1428089700, 1428090120, 
1428090240, 1428090480, 1428090660, 1428090780, 1428090960, 1428091080, 
1428091200, 1428091500, 1428091620, 1428096060, 1428096420, 1428096540, 
1428096600, 1428097560, 1428097860, 1428100440, 1428100560, 1428100680, 
1428100740, 1428100860, 1428101040, 1428101160, 1428101400, 1428101520, 
1428101760, 1428101940, 1428102240, 1428102840, 1428103080, 1428103620, 
1428103980, 1428104100, 1428104160, 1428104340, 1428104520, 1428104700, 
1428108540, 1428108840, 1428108960, 1428110340, 1428110460, 1428110640
), class = c("POSIXct", "POSIXt"), tzone = ""), event = c(1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3)), .Names = c("time", 
"event"), class = "data.frame", row.names = c(NA, 57L))

  df1 <- df %>%                                                     
  group_by(event) %>%                                           
  summarize(first(time),last(time),difference = last(time)-first(time))

我们可以用difftime并指定unit获得相同的所有差异unit.

df %>% 
   group_by(event) %>% 
   summarise(First = first(time),
             Last = last(time) , 
             difference= difftime(last(time), first(time), unit='hour'))