使用R计算两个时间戳的时间差并输出为HH:MM格式

问题原因 #

1. strptime为时间点解析函数，仅可识别符合时间格式的字符串/数值，你传入的difftime计算结果为时长类数值，无法匹配解析规则，因此返回NA。
2. difftime函数本身无format参数，额外传入该参数会触发参数不匹配报错。

解决方法 #

方法1：仅用基础R实现（无需安装额外包）

# 先将起止时间列转换为标准时间类型，如已转换可跳过该步
df$Start_Time <- as.POSIXct(df$Start_Time, format = "%Y-%m-%d %H:%M")
df$End_Time <- as.POSIXct(df$End_Time, format = "%Y-%m-%d %H:%M")

# 计算两个时间的总分钟差
total_mins <- as.numeric(difftime(df$End_Time, df$Start_Time, units = "mins"))

# 拆分小时、分钟后补前导零，拼接为HH:MM格式
df$differ_hrs <- sprintf("%02d:%02d", total_mins %/% 60, total_mins %% 60)

sprintf中的%02d会自动给不足两位的数值补前导零，刚好符合要求的格式，就算时间差超过24小时也能正确累计小时数，不会出现自动转天的问题。

方法2：用lubridate包实现（代码更简洁）

# 安装加载包，如已安装可跳过install.packages行
install.packages("lubridate")
library(lubridate)

# 直接计算时长后格式化
diff_period <- seconds_to_period(difftime(df$End_Time, df$Start_Time, units = "secs"))
df$differ_hrs <- sprintf("%02d:%02d", hour(diff_period), minute(diff_period))

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