如何移除时间字符串秒数并转为数值？基于R语言Camera_data数据框

以下是两种稳定的处理方法，不管时间格式是否带前导零，都能精准移除秒数并完成格式转换：

• 使用stringr包的正则匹配（精准定位秒数部分）：
  先匹配末尾的:XX（XX为两位秒数）并移除，再替换剩余冒号为小数点，最后转数值型：

  library(stringr)
  # 移除秒数部分
  Camera_data$Numeric_time_clean <- str_replace(Camera_data$Numeric_time, ":\\d{2}$", "")
  # 替换冒号为小数点
  Camera_data$Numeric_time_clean <- str_replace(Camera_data$Numeric_time_clean, ":", ".")
  # 转换为数值列
  Camera_data$Numeric_time_num <- as.numeric(Camera_data$Numeric_time_clean)
  

  正则:\\d{2}$能精准匹配字符串末尾的秒数部分，比固定删除最后三个字符更稳定，避免因格式异常（比如秒数位数不符）导致的错误。

• 用base R原生函数处理（无需额外加载包）：
  原理和上面一致，用sub函数完成正则替换：

  # 移除秒数
  Camera_data$Numeric_time_clean <- sub(":\\d{2}$", "", Camera_data$Numeric_time)
  # 替换冒号为小数点
  Camera_data$Numeric_time_clean <- sub(":", ".", Camera_data$Numeric_time_clean)
  # 转数值型
  Camera_data$Numeric_time_num <- as.numeric(Camera_data$Numeric_time_clean)
  

• 测试验证：
  拿示例时间测试效果：

  test_time <- c("08:40:01", "12:35:59", "00:01:05")
  processed <- sub(":", ".", sub(":\\d{2}$", "", test_time))
  as.numeric(processed)
  # 输出：8.4  12.35  0.01
  

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