R语言计算跨午夜时间差遇阻：睡眠与起床时间差求解

问题核心：用strptime/as.POSIXct转换时间时，默认会把所有时间绑定到同一天，但实际场景中，若入睡时间的小时数晚于起床时间（比如23:00入睡、次日11:00起床），直接计算差值会得到负数，需手动调整日期逻辑。

方法一：基于日期时间对象处理 #

先将时间转换为POSIXct类型（更适合时间计算），再判断差值正负，负数差值加24小时补全前一天的时间：

# 示例数据
df <- data.frame(
 b = c('07:00', '10:00', '11:00', '13:00', '05:00'),
 d = c('00:00', '00:30', '23:00', '22:00','04:20')
)

# 转换为POSIXct日期时间类型
df$b <- as.POSIXct(df$b, format = "%H:%M")
df$d <- as.POSIXct(df$d, format = "%H:%M")

# 计算初始时间差（小时为单位）
df$sleep_hours <- difftime(df$b, df$d, units = "hours")

# 修正负数差值：说明入睡是前一天，加24小时
df$sleep_hours <- ifelse(df$sleep_hours < 0, df$sleep_hours + 24, df$sleep_hours)

运行后df$sleep_hours的结果为：7、9.5、12、15、0.666...（对应40分钟），完全符合实际睡眠时长逻辑。

方法二：转换为分钟数计算 #

将时间转换为当日的分钟数，通过判断分钟数大小补全前一天的时间（1440分钟=24小时），无需处理日期对象，逻辑更直观：

# 示例数据同上

# 转换为当日分钟数
df$b_min <- as.numeric(format(df$b, "%H"))*60 + as.numeric(format(df$b, "%M"))
df$d_min <- as.numeric(format(df$d, "%H"))*60 + as.numeric(format(df$d, "%M"))

# 计算睡眠分钟数，若起床分钟数小于入睡分钟数，加1440分钟
df$sleep_min <- ifelse(df$b_min >= df$d_min, df$b_min - df$d_min, df$b_min - df$d_min + 1440)

# 转换为小时（可选）
df$sleep_hours <- df$sleep_min / 60

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