我来帮你搞定这个时间编码转毫秒的需求！你之前尝试的函数思路是对的，我们可以把它补全得更健壮，覆盖所有可能的情况（比如1位秒数、整分钟的编码等）。

核心思路 #

你的时间编码规则很清晰：

• 最后两位数字代表秒数（比如23就是23秒，123的最后两位23是23秒）
• 前面的所有数字代表分钟数（比如123的1是1分钟，1234的12是12分钟；如果编码只有1-2位，分钟数默认是0）

基于这个规则，我们只需要拆分出分钟和秒，再转换成总毫秒（公式：分钟*60*1000 + 秒*1000）即可。

完整实现函数 #

首先确保你加载了stringr包（用来方便截取字符串），然后定义这个转换函数：

library(stringr)

toMSec <- function(x) {
  # 将输入转换为字符型，保证截取逻辑统一
  x_char <- as.character(x)
  
  # 提取最后两位作为秒数，自动兼容1-2位的短编码
  secs <- as.numeric(str_sub(x_char, -2, -1))
  
  # 提取分钟数：如果编码长度≥3，取前面的部分；否则为0
  mins <- ifelse(nchar(x_char) >= 3, as.numeric(str_sub(x_char, 1, -3)), 0)
  
  # 计算总毫秒并返回
  total_ms <- mins * 60 * 1000 + secs * 1000
  return(total_ms)
}

测试用法 #

我们用一个包含各种场景的测试数据框来验证效果：

# 创建测试数据：涵盖1位秒、2位秒、带分钟、整分钟、多位数分钟和缺失值
test_df <- data.frame(
  time_code = c(23, 123, 524, 5, 100, 1234, NA)
)

# 生成毫秒列
test_df$time_ms <- toMSec(test_df$time_code)

# 查看结果
print(test_df)

运行后输出的结果会是：

time_code time_ms
1        23   23000
2       123   83000
3       524  324000
4         5    5000
5       100   60000
6      1234  754000
7        NA      NA

补充说明 #

• 如果你的数据里有缺失值（NA），函数会保留NA；如果需要将缺失值替换为0，可以在函数里添加secs <- replace_na(secs, 0)和mins <- replace_na(mins, 0)（需要提前加载tidyr包）。
• 如果后续需要支持小时级别的编码（比如12345代表1小时23分45秒），只需要调整拆分逻辑：最后两位是秒、中间两位是分钟、前面的是小时，再用公式小时*3600*1000 + 分钟*60*1000 + 秒*1000计算即可。

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