时间戳

首页 > 解决方案 > 每天时间戳之间的差异，在 R 中有一个晚上的休息时间

r - 每天时间戳之间的差异，在 R 中有一个晚上的休息时间

问题描述

我正在尝试计算两个时间戳之间的差异，并将每个日期和 uid 汇总。我已经计算了每个时间间隔的差异，但想每天分割这些间隔（所以创建某种午夜休息时间）。鉴于时间间隔之间的差异在一夜之间，我无法计算每天每个间隔之间的时间，因此这些休息时间。

这是我的数据片段：

df <- structure(list(
start_timestamp = c("2013-03-27 01:21:23", "2013-03-28 07:11:58", "2013-03-28 09:09:56", "2013-03-29 00:19:32", "2013-03-29 02:22:53"), 
uid = c(0, 0, 0, 0, 0),
prev_start_timestamp = c("2013-03-27 01:13:26", "2013-03-27 05:58:53", "2013-03-28 08:41:41", "2013-03-28 10:47:01", "2013-03-29 02:17:26")), row.names = c("1", "2", "3", "4", 
"5"), class = "data.frame")

通常我会从这个输出中工作并使用dplyr或data.table来每天汇总。但是现在，这些时间差只是通过减去时间戳来计算的。同时，我希望每天都拆分这种差异。

输出，不受欢迎

预期的输出会是这样的：但是这个没有做任何隔夜休息来分隔每天的时间。这个输出表明有些日子的时间间隔超过 24 小时，这当然是不可能的。

在此处输入图像描述

标签： rdplyrtimestampdata.tabledifftime

解决方案

这是使用的选项data.table::foverlaps：

#create a data.table of daily intervals
datetimes <- DT[, seq(trunc(min(start), "days"), trunc(max(end)+24*60*60), "days")]
days <- data.table(start=datetimes[-length(datetimes)], end=datetimes[-1L], key=cols)

#set keys on original dataset and perform overlaps before calculating usage per day
setkeyv(DT, cols)
foverlaps(DT, days)[,
    .(phone_usage=sum(pmin(i.end, end) - pmax(i.start, start))), 
    .(uid, date=start)]

输出（将留给 OP 手动检查这对于示例数据集是否正确）：

   uid       date phone_usage
1:   0 2013-03-27  65344 secs
2:   0 2013-03-28  75192 secs
3:   0 2013-03-29   1499 secs

数据（请注意，我缩短了 OP 的列名）：

library(data.table)
DT <- data.table(
    end = c("2013-03-27 01:21:23", "2013-03-28 07:11:58", "2013-03-28 09:09:56", "2013-03-29 00:19:32", "2013-03-29 02:22:53"), 
    uid = c(0, 0, 0, 0, 0),
    start = c("2013-03-27 01:13:26", "2013-03-27 05:58:53", "2013-03-28 08:41:41", "2013-03-28 10:47:01", "2013-03-29 02:17:26"))
cols <- c('start', 'end')
DT[, (cols) := lapply(.SD, as.POSIXct, format="%Y-%m-%d %T"), .SDcols=cols]

推荐阅读