我有一个包含两个时间变量的数据集:EndVisitTime
and BoxTime
。我每天都会制作数据集(因此这些观察结果都是在一天内进行的):
Date<-"2014-8-12"
EndVisitTime<-c("00:00:32", "00:04:52", "00:10:01", "00:23:38", "00:31:28") # class: factor
BoxTime<-as.integer(c("341", "229", "301", "810", "363")) # class integer in seconds
df<-data.frame(Date, EndVisitTime, BoxTime)
我想计算StartVisitTime
;那是EndVisitTime - BoxTime
.
当访问前一天开始时,我想知道正确的开始日期(date = 2014-8-11
)。
我的问题是如何减去BoxTime
(以秒为单位)从EndVisitTime
得到正确的StartVisitTime
与权利StartDate
??
我已经尝试了几个选项,但我无法进一步,因为它们不断添加当前日期或导致无法转换为时间日期格式的 0 到 1 特征。
# This is my most successful attempt
df$EndTime<-strptime(df$EndVisitTime, format="%H:%M:%S")
df$BoxTime<-as.numeric(df$BoxTime)
library("chron")
df$x<-chron(times=(df$BoxTime/(60*60*24)))
df$StartVisitTime<-df$EndTime-df$x ### This does not work!
非常感谢并希望您的帮助!