r：如何将 hh:mm:s 中的持续时间计算为以小时为单位但与午夜重叠的固定时间答案

【问题标题】：r: How to calculate duration in hh:mm:s to a fixed time in hours but overlapping midnightr：如何将 hh:mm:s 中的持续时间计算为以小时为单位但与午夜重叠的固定时间
【发布时间】：2021-05-17 05:23:11
【问题描述】：

我在df$times 中定义了以下hh:mm:ss

     times
1 22:55:00
2 01:05:00
3 21:00:00

我想计算从20:00:00 到每个这些时间的持续时间。但是，有些时间是在午夜之后，在这种情况下，持续时间应该估计为 20:00:00 '第二天`

预期输出

     times    new
1 22:55:00   2.92 
2 01:05:00   5.08
3 21:00:00  -1.00

数据

df <- structure(list(times = c("22:55:00", "01:05:00", "21:00:00")), class = "data.frame", row.names = c(NA, 
-3L))

【问题讨论】：

标签： r dataframe time dplyr lubridate

【解决方案1】：

我们用hms转换为周期类，创建一个条件来检查比较的时间值是否大于'times'，然后加1天并减去，否则直接减去

library(dplyr)
library(lubridate)
df %>% 
    mutate(times1 = hms(times), times2 = hms("20:00:00"), 
       new = as.numeric(case_when(times1 < times2 ~ 
      (times1 + hms("24:00:00") - times2), TRUE ~ times2- times1))/3600 ) %>%
   select(times, new)
#     times       new
#1 22:55:00 -2.916667
#2 01:05:00  5.083333
#3 21:00:00 -1.000000

【讨论】：

嗨 - 感谢您的意见。不幸的是，time 2 计算出18 hours，但应该是4 hours。

【解决方案2】：

library(dplyr)
library(data.table)

mydf <- structure(list(times = c("22:55:00", "01:05:00", "21:00:00")), class = "data.frame", row.names = c(NA, 
-3L))

mydf %>%
  mutate(
    times = as.ITime(times),
    difference = case_when (
      times > as.ITime("20:00:00") ~ difftime(times, as.ITime("20:00:00")),
      TRUE ~ difftime(as.ITime("23:59:59"), as.ITime("19:59:59")) 
               + difftime(  times, as.ITime("00:00:01"))
    )
  )

【讨论】：