如何在R中将字符型混合格式时间戳转换为正确格式？

针对时间列同时存在hh:mm:ss和mm:ss两种格式的情况，以下是几种可行的解决方案：

方法1：用lubridate自动匹配多种格式 #

利用lubridate包的parse_date_time函数，同时指定两种时间格式进行匹配，再转成标准的hms时间对象：

library(lubridate)

# 构造示例数据
df <- data.frame(Time = c("1:00:05", "55:45","34:33","1:12:35"), stringsAsFactors = FALSE)

# 匹配两种格式并转换为hms类型
df$Time_clean <- hms(parse_date_time(df$Time, orders = c("HMS", "MS")))

处理后结果：

> df
      Time Time_clean
1 1:00:05  1H 0M 5S
2   55:45  0H 55M 45S
3   34:33  0H 34M 33S
4 1:12:35  1H 12M 35S

方法2：手动补全格式后转换 #

先判断每个时间字符串的冒号数量，给只有1个冒号的mm:ss格式补上前缀00:，统一为hh:mm:ss后再转换：

library(hms)
library(stringr)

# 补全格式
df$Time_fixed <- ifelse(str_count(df$Time, ":") == 1, 
                       paste0("00:", df$Time), 
                       df$Time)

# 转换为hms对象
df$Time_fixed <- hms(df$Time_fixed)

方法3：转换为总秒数（适合后续计算） #

如果不需要保留时间格式，而是需要数值型的时间长度，可以直接计算总秒数：

# 分割时间字符串并计算总秒数
time_parts <- strsplit(df$Time, ":")
df$total_seconds <- sapply(time_parts, function(parts) {
  if (length(parts) == 2) {
    as.numeric(parts[1])*60 + as.numeric(parts[2])
  } else {
    as.numeric(parts[1])*3600 + as.numeric(parts[2])*60 + as.numeric(parts[3])
  }
})

处理后结果：

> df
      Time total_seconds
1 1:00:05           3605
2   55:45           3345
3   34:33           2073
4 1:12:35           4355

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