如何基于24小时制时间列计算时长？含跨天场景处理

问题分析 #

仅用end_time - start_time计算时长时，跨天场景（比如23:12:34到次日04:12:34）会得到负数结果，因为单独的时间类型（HH:MM:SS）不包含日期信息，无法识别跨天逻辑。

方法一：结合日期转为完整Datetime（推荐） #

利用现有的start_date列，将时间与日期合并为完整的datetime对象，自动处理跨天情况：

library(dplyr)
library(lubridate)

df_dur <- df %>%
  # 将字符串时间转为period类型
  mutate(
    start_time = hms(start_time),
    end_time = hms(end_time),
    # 判断跨天：若结束时间早于开始时间，结束日期为开始日期+1天
    end_date = if_else(end_time < start_time, start_date + days(1), start_date),
    # 合并日期与时间为完整datetime
    start_datetime = ymd_hms(paste(start_date, start_time)),
    end_datetime = ymd_hms(paste(end_date, end_time)),
    # 计算时长，结果为difftime类型，可按需转换为小时/分钟等
    duration = end_datetime - start_datetime
  )

方法二：用case_when直接计算时长（无需日期转换） #

若不想处理日期，可通过case_when判断跨天场景，基于秒数计算时长：

library(dplyr)
library(lubridate)

df_dur <- df %>%
  mutate(
    # 将时间转为总秒数
    start_sec = period_to_seconds(hms(start_time)),
    end_sec = period_to_seconds(hms(end_time)),
    # 分支处理跨天与非跨天情况
    duration = case_when(
      end_sec > start_sec ~ hms(end_sec - start_sec),
      TRUE ~ hms(end_sec + 86400 - start_sec)  # 86400为一天的总秒数
    )
  )

示例数据验证 #

针对你提供的示例：

• 第一行（16:34:23 → 19:24:45）：计算得到时长为2小时50分22秒
• 第二行（23:12:34 → 次日04:12:34）：计算得到时长为5小时

是否需要使用case_when？ #

并非必须。方法一通过if_else结合日期转换的方式更直观，且能保留完整的时间上下文，不易出错；若选择纯时间计算的方式，case_when可以清晰区分跨天与非跨天的逻辑分支，两种方案均可行，优先推荐结合日期的处理方式。

内容的提问来源于stack exchange，提问作者Eizy