R语言hms()函数错误将负时间转为正值的问题求助

你遇到的问题是hms()函数无法正确识别开头带负号的"hh:mm:ss"格式字符串，导致负时间被转为正值。以下是两种可靠的解决方法：

方法1：手动拆分符号与时间部分 #

先提取每个时间字符串的正负符号，剥离负号后再转换为秒数，最后乘以符号得到正确结果：

library(lubridate)

# 示例数据
df <- data.frame(
  time = c("-00:00:01", "-00:00:02", "-00:00:07", "00:00:00", "00:00:01", 
           "00:00:02", "00:00:03", "00:00:04", "00:00:05", "00:00:06")
)

# 提取符号：负号对应-1，其余为1
df$sign <- ifelse(startsWith(df$time, "-"), -1, 1)
# 剥离开头的负号，得到正时间字符串
df$time_pos <- sub("^-", "", df$time)
# 转换为秒数并乘以符号
df$time_sec <- period_to_seconds(hms(df$time_pos)) * df$sign

方法2：使用lubridate的parse_time函数 #

parse_time()可以正确识别开头带负号的时间格式，直接转换后转为数值即可得到秒数：

df$time_sec <- as.numeric(parse_time(df$time))

验证结果：转换后的time_sec列会保留正确的正负值，可直接用于加减乘除、求均值等数值运算。

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