[英]Calculate time difference (difftime) between columns of different rows
我有不同工作的“開始”和“結束”時間數據,按“所有者”分組:
Data <- data.frame(
job = c(1, 2, 3, 4, 5),
owner = c("name1", "name2", "name1", "name1", "name2"),
Start = as.POSIXct(c("2015-01-01 15:00:00", "2015-01-01 15:01:00", "2015-01-01 15:13:00", "2015-01-01 15:20:00", "2015-01-01 15:39:02"), format="%Y-%m-%d %H:%M:%S"),
End = as.POSIXct(c("2015-01-01 15:11:11", "2015-01-01 15:17:21", "2015-01-01 15:17:00", "2015-01-01 15:31:21", "2015-01-01 15:40:11"), format="%Y-%m-%d %H:%M:%S")
)
對於每個所有者,我想計算每個所有者的作業之間的空閑時間,即一個作業的“結束”時間與下一個作業的“開始”時間之間的差異。
如何使用difftime()
計算不同列中特定行和時間之間的時間差?
結果應如下所示:
job, owner, idletime
1, name1, NA
2, name2, NA
3, name1, 1.816667 # End of row 1 minus Start of row 3
4, name1, 3.0 # End of row 3 minus Start of row 4
...
這是使用data.table
的可能解決方案
library(data.table) # v 1.9.5+
setDT(Data)[, idletime := difftime(Start, shift(End), units = "mins"), by = owner]
# job owner Start End idletime
# 1: 1 name1 2015-01-01 15:00:00 2015-01-01 15:11:11 NA mins
# 2: 2 name2 2015-01-01 15:01:00 2015-01-01 15:17:21 NA mins
# 3: 3 name1 2015-01-01 15:13:00 2015-01-01 15:17:00 1.816667 mins
# 4: 4 name1 2015-01-01 15:20:00 2015-01-01 15:31:21 3.000000 mins
# 5: 5 name2 2015-01-01 15:39:02 2015-01-01 15:40:11 21.683333 mins
或者使用dplyr
library(dplyr)
Data %>%
group_by(owner) %>%
mutate(idletime = difftime(Start, lag(End), units = "mins"))
# Source: local data frame [5 x 5]
# Groups: owner
#
# job owner Start End idletime
# 1 1 name1 2015-01-01 15:00:00 2015-01-01 15:11:11 NA mins
# 2 2 name2 2015-01-01 15:01:00 2015-01-01 15:17:21 NA mins
# 3 3 name1 2015-01-01 15:13:00 2015-01-01 15:17:00 1.816667 mins
# 4 4 name1 2015-01-01 15:20:00 2015-01-01 15:31:21 3.000000 mins
# 5 5 name2 2015-01-01 15:39:02 2015-01-01 15:40:11 21.683333 mins
如果我們使用base R
,那么ave
將是一種選擇。 我們使用ave
得到“所有者”分組的“結束”的lag
,將其用作difftime
的第二個參數來創建“idtime”。
Data$idtime <- with(Data, difftime(Start, ave(End, owner,FUN=lag), units='mins'))
Data
# job owner Start End idtime
#1 1 name1 2015-01-01 15:00:00 2015-01-01 15:11:11 NA mins
#2 2 name2 2015-01-01 15:01:00 2015-01-01 15:17:21 NA mins
#3 3 name1 2015-01-01 15:13:00 2015-01-01 15:17:00 1.816667 mins
#4 4 name1 2015-01-01 15:20:00 2015-01-01 15:31:21 3.000000 mins
#5 5 name2 2015-01-01 15:39:02 2015-01-01 15:40:11 21.683333 mins
注意:我將列名稱命名為“idtime”以將代碼保存在一行中:-)
library(dplyr)
Data <- data.frame(
job = c(1, 2, 3, 4, 5),
owner = c("name1", "name2", "name1", "name1", "name2"),
Start = as.POSIXct(c("2015-01-01 15:00:00", "2015-01-01 15:01:00", "2015-01-01 15:13:00", "2015-01-01 15:20:00", "2015-01-01 15:39:02"), format="%Y-%m-%d %H:%M:%S"),
End = as.POSIXct(c("2015-01-01 15:11:11", "2015-01-01 15:17:21", "2015-01-01 15:17:00", "2015-01-01 15:31:21", "2015-01-01 15:40:11"), format="%Y-%m-%d %H:%M:%S")
)
Data %>%
group_by(owner) %>%
arrange(Start) %>%
mutate(lagEnd = lag(End),
idletime = difftime(Start,lagEnd, units="mins")) %>%
ungroup %>%
arrange(job) %>%
select(job,owner,idletime)
# job owner idletime
# 1 1 name1 NA mins
# 2 2 name2 NA mins
# 3 3 name1 1.816667 mins
# 4 4 name1 3.000000 mins
# 5 5 name2 21.683333 mins
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.