使用 data.table 在 R 中将间隔转换为每个工作日每小时的持续时间

Question

我有以下问题：

假设我们有：

 Idx        ID      StartTime          EndTime
  1:         1 2014-01-01 02:20:00 2014-01-01 03:42:00
  2:         1 2014-01-01 14:51:00 2014-01-01 16:44:00

注意：未给出 Idx，但我只是将其添加到 table 视图中。

现在我们看到 ID=1 的人正在使用计算机 2:20 到 3:42。现在我想做的是将此间隔转换为一组代表小时和工作日以及这些时段的持续时间的变量。

 Idx        ID Monday-0:00 Monday-1:00 ... Wednesday-2:00 Wednesday-3:00
  1:         1                                  40             42

对于第二行，我们将

 Idx        ID Monday-0:00 Monday-1:00 ... Wednesday-14:00 Wednesday-15:00  Wednesday-16:00
  2:         1                                  9             60                  44

现在的问题当然是它可以跨越多个小时，正如您从第二行中看到的那样。

我想每行并且我想知道这是否可能而不需要太多的计算工作并使用 data.table?

PS：也有可能是时间间隔跨越了一天。

Answer 1

library(data.table)
library(lubridate)
#produce sample data
DT<-data.table(idx=1:100,ID=rep(1:20,5), StartTime=runif(100,60*60,60*60*365)+ymd('2014-01-01'))
DT[,EndTime:=StartTime+runif(1,60,60*60*8)]

#make fake start and end dates with same day of week and time but all within a single calendar week
DT[,fakestart:=as.numeric(difftime(StartTime,ymd('1970-01-01'),units="days"))%%7*60*60*24+ymd('1970-01-01')]
DT[,fakeend:=as.numeric(difftime(EndTime,ymd('1970-01-01'),units="days"))%%7*60*60*24+ymd('1970-01-01')]
setkey(DT,fakestart,fakeend)
#check that weekdays line up
nrow(DT[weekdays(EndTime)==weekdays(fakeend)])
nrow(DT[weekdays(StartTime)==weekdays(fakestart)])
#both are 100 so we're good.

#check that fakeend > fakestart
DT[fakeend<fakestart]
#uh-oh some ends are earlier than starts, let's add 7 days to those ends
DT[fakeend<fakestart,fakeend:=fakeend+days(7)]


#make data.table with all possible labels
DTin<-data.table(start=seq(from=ymd('1970-01-01'),to=DT[,floor_date(max(fakeend),"hour")],by=as.difftime(hours(1))))
DTin[,end:=start+hours(1)]
DTin[,label:=paste0(format(start,format="%A-%H:00"),' ',format(end,format="%A-%H:00"))]

#set key and use new foverlaps feature of data.table which merges by interval
setkey(DT,fakestart,fakeend)
setkey(DTin,start,end)
DTout<-foverlaps(DT,DTin,type="any")

#compute duration in each interval
DTout[,dur:=60-pmax(0,difftime(fakestart,start,unit="mins"))-pmax(0,difftime(end,fakeend,unit="mins"))]

#cast all the rows up to columns for final result
castout<-dcast.data.table(DTout,idx+ID~label,value.var="dur",fill=0)

使用 data.table 在 R 中将间隔转换为每个工作日每小时的持续时间

Converting an interval to duration per hour per weekday in R using data.table

r

data.table