如何计算时间间隔并将其除以r中的整数？

Question

我的时间字符串为“ 08:00”，“ 06:00” 我想计算它们之间的差异 并除以15分钟。

则结果应为8的整数 我不怎么用R编码

有人可以帮助我吗？

Answer 1

使用difftime这样的事情吗？

difftime(
    as.POSIXct("08:00", format = "%H:%M"), 
    as.POSIXct("06:00", format = "%H:%M"), 
    units = "mins") / 15
#Time difference of 8 mins

或转换为numeric

as.numeric(
    difftime(as.POSIXct("08:00", format = "%H:%M"), 
    as.POSIXct("06:00", format = "%H:%M"), 
    units = "mins") / 15)
#[1] 8

Answer 2

使用lubridate很容易，我们可以将hm格式的字符串转换为15分钟。

library(lubridate)
(hm(a) - hm(b))/minutes(15)
#[1] 8

数据

a <- "08:00"
b <- "06:00"