我有一个如下所示的数据框:
POI LOCAL.DATETIME
1 1 2017-07-11 15:02:13
2 1 2017-07-11 15:20:28
3 2 2017-07-11 15:20:31
4 2 2017-07-11 15:21:13
5 3 2017-07-11 15:21:18
6 3 2017-07-11 15:21:21
7 2 2017-07-11 15:21:25
8 2 2017-07-11 15:21:59
9 1 2017-07-11 15:22:02
10 1 2017-07-11 15:22:05
我希望能够计算(可能使用 lubridate)在每个 POI 花费的累积时间,并将它们组合成一个如下所示的表:
POI TOTAL.TIME
1 1 00:18:18
2 2 00:01:11
3 3 00:00:03
另外,我不确定如何处理 POI 之间的时间,例如第 2 行和第 3 行之间的 3 秒。我想也许我需要计算从第 1 行到第 3 行而不是第 1 行到第 2 行的时间。
要获取每个组期间的总时间,您首先需要创建组索引。我在用着rleid
from data.table
然后,您可以计算在每个组中花费的总时间,然后使用初始 POI 进行汇总sum
.
df <- read.table(text=" POI LOCAL.DATETIME
1 '2017-07-11 15:02:13'
1 '2017-07-11 15:20:28'
2 '2017-07-11 15:20:31'
2 '2017-07-11 15:21:13'
3 '2017-07-11 15:21:18'
3 '2017-07-11 15:21:21'
2 '2017-07-11 15:21:25'
2 '2017-07-11 15:21:59'
1 '2017-07-11 15:22:02'
1 '2017-07-11 15:22:05'",
header=TRUE,stringsAsFactors=FALSE)
df$LOCAL.DATETIME <- as.POSIXct(df$LOCAL.DATETIME)
library(dplyr)
df%>%
mutate(grp=data.table::rleid(POI))%>%
group_by(grp)%>%
summarise(POI=max(POI),TOTAL.TIME=difftime(max(LOCAL.DATETIME),
min(LOCAL.DATETIME),units="secs"))%>%
group_by(POI)%>%
summarise(TOTAL.TIME=sum(TOTAL.TIME))
# A tibble: 3 × 2
POI TOTAL.TIME
<int> <time>
1 1 1098 secs
2 2 76 secs
3 3 3 secs
要获取分钟和秒,您可以使用as.period
from lubridate
:
library(lubridate)
df%>%
mutate(grp=data.table::rleid(POI))%>%
group_by(grp)%>%
summarise(POI=max(POI),TOTAL.TIME=difftime(max(LOCAL.DATETIME),
min(LOCAL.DATETIME),units="secs"))%>%
group_by(POI)%>%
summarise(TOTAL.TIME=sum(TOTAL.TIME))%>%
mutate(TOTAL.TIME =as.period((TOTAL.TIME), unit = "sec"))
POI TOTAL.TIME
<int> <S4: Period>
1 1 18M 18S
2 2 1M 16S
3 3 3S
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)