R语言如何将秒级时间差值转换为HH:MM:SS格式

你当前计算得到的RIDE_LENGTH是单位为秒的difftime对象，直接用以下两种方法即可转为HH:MM:SS格式：

方案1：tidyverse生态推荐写法（最简便） #

使用hms包的格式化方法，和dplyr::mutate适配度最高，不需要手动计算时分秒：

library(dplyr)
library(hms)

# 修正后的mutate代码
df2 <- df2 %>%
  mutate(RIDE_LENGTH = as_hms(ENDED_AT - STARTED_AT))

如果运行报错提示类型不匹配，先把两个时间字段转为标准时间类再计算：

# 若STARTED_AT/ENDED_AT是字符串类型，先解析为hms时间格式
df2 <- df2 %>%
  mutate(
    across(c(STARTED_AT, ENDED_AT), hms::parse_hms),
    RIDE_LENGTH = as_hms(ENDED_AT - STARTED_AT)
  )

方案2：Base R实现（无额外依赖） #

不想加载第三方包的话，手动拆分秒数拼接为HH:MM:SS格式即可：

df2 <- df2 %>%
  mutate(
    # 先把difftime对象转为纯数值秒数
    diff_sec = as.numeric(ENDED_AT - STARTED_AT),
    # 分别计算小时、分钟、秒，补零拼接
    RIDE_LENGTH = sprintf(
      "%02d:%02d:%02d",
      diff_sec %/% 3600,
      (diff_sec %% 3600) %/% 60,
      diff_sec %% 60
    )
  ) %>%
  # 删掉中间计算用的临时列
  select(-diff_sec)

效果验证：以你给出的样例计算，12:05:00减去12:03:00得到的120秒，两种方法输出结果均为00:02:00，符合预期。

注意事项 #

• 如果两个时间跨天（比如前一天23:59到次日00:02），以上方法会自动计算总时长对应的时分秒，不会出现负数
• 方案1得到的RIDE_LENGTH是hms类，支持后续时间类计算；方案2得到的是字符串类型，适合直接导出展示

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