如何计算时间间隔并将其除以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"