嗨，这就帮你解决这个时间转换的问题！你手里有个存着分钟:秒.毫秒格式字符串的向量，想要算出每个时间点相对于第一个起始点的分钟数，对吧？下面给你两种靠谱的方法，按需选就行：

方法一：用lubridate包（简洁省心） #

lubridate是R里处理时间的利器，能轻松解析这种时间格式：

1. 先安装并加载包（如果还没装过的话）：

install.packages("lubridate")
library(lubridate)

2. 处理你的时间向量：

# 先把你的向量写出来（示例用你提供的部分数据）
tm <- structure(c("49:03.3", "49:05.5", "49:07.8", "49:10.1", "49:12.3", 
                  "50:02.1", "50:08.9"))

# 把字符串转换成可计算的时间周期对象
tm_period <- ms(tm)

# 计算每个时间与起始时间的差值
time_diff <- tm_period - tm_period[1]

# 将时间差转换成相对分钟数
relative_minutes <- period_to_seconds(time_diff) / 60

执行后，relative_minutes里就是每个时间点相对于第一个点的分钟数啦，比如第一个值是0，第二个值就是(49:05.5-49:03.3)=2.2秒，转换成分钟约为0.0367。

方法二：基础R实现（无需额外包） #

如果不想装新包，用基础R的字符串拆分和数值计算也能搞定：

# 同样先定义你的时间向量
tm <- structure(c("49:03.3", "49:05.5", "49:07.8", "49:10.1", "49:12.3", 
                  "50:02.1", "50:08.9"))

# 拆分每个时间字符串，分离出分钟、秒、毫秒
split_tm <- strsplit(tm, split = ":|\\.")

# 转换成数值矩阵，每行对应分钟、秒、毫秒
tm_numeric <- do.call(rbind, lapply(split_tm, as.numeric))

# 计算每个时间的总秒数：分钟*60 + 秒 + 毫秒/10
total_seconds <- tm_numeric[,1]*60 + tm_numeric[,2] + tm_numeric[,3]/10

# 计算相对起始时间的分钟数
relative_minutes <- (total_seconds - total_seconds[1])/60

这个方法和第一种得到的结果完全一致，适合偏好基础R的场景。

备注：内容来源于stack exchange，提问作者mr.T