如何計算時間間隔並將其除以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"