如何用Base R将%H:%M:%S格式时长转换为十进制秒数

我来帮你搞定这个时间转换的困惑！你之前尝试的代码只提取了时长里的秒数部分，没有计算总时长，所以才没得到想要的结果。下面用Base R给你两种靠谱的方法：

方法一：手动计算总时长 #

先把字符串转成POSIXlt时间对象，然后直接用小时、分钟、秒的数值计算总秒数：

durations <- "01:01:01" # 1小时1分1秒
time_obj <- strptime(durations, format = "%H:%M:%S")

# 计算总秒数
total_seconds <- time_obj$hour * 3600 + time_obj$min * 60 + time_obj$sec
total_seconds # 输出：3661

# 转成分钟数
total_minutes <- total_seconds / 60
total_minutes # 输出：61.01667

方法二：用as.difftime直接处理时间间隔 #

Base R里的as.difftime函数专门用来处理时间间隔，比手动计算更简洁：

durations <- "01:01:01"

# 直接转成总秒数
total_seconds <- as.numeric(as.difftime(durations, format = "%H:%M:%S", units = "secs"))

# 直接转成总分钟数
total_minutes <- as.numeric(as.difftime(durations, format = "%H:%M:%S", units = "mins"))

为什么你之前的代码不对？ #

你之前写的：

as.numeric(format(strptime('00:01:01', format='%H:%M:%S'), '%S'))

这里format(..., '%S')只是把时间对象转成字符串后提取了秒的部分（也就是"01"），转成数值就是1，但这不是总时长（总时长应该是61秒）。所以要区分「提取时间分量」和「计算总时间间隔」的区别哦！

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