R 停留时间/时差在明显的时间间隔后开始重新计数

我试图计算每个位置的停留时间。但是，当

ID

#1在前一天晚上

23:30:36离开一个位置，并在第二天回到同一位置时，我的代码会累积时差，尽管它应该在第二天开始重新计数。隔夜停电是不行的，因为有时这些间隙也发生在白天

有没有办法让时差在出现重大差距后重新计算？同样的问题实际上也发生在位置B和C之间，尽管只有4.6分钟的间隔

location    ID  time                 time difference (mins)
A            1  2013-03-27 23:29:12  0.516666667
A            1  2013-03-27 23:29:43  0.466666667
A            1  2013-03-27 23:30:11  0.25
B            1  2013-03-27 23:30:26  0.166666667
B            1  2013-03-27 23:30:36  *794.6*
B            1  2013-03-28 12:45:12  0.25
B            1  2013-03-28 12:45:27  4.633333333
C            1  2013-03-28 12:50:05  0.25
C            1  2013-03-28 12:50:20  1.383333333
C            1  2013-03-28 12:51:43  0.266666667

当前代码：

df <- df %>%
  mutate(diff = c(difftime(tail(df$time, -1), head(df$time, -1), units = "mins"),0))

df%
变异（diff=c（difftime（尾部（df$time，-1），头部（df$time，-1），单位=“分钟”），0））