在R语言中将两种格式的字符型时间列转换为总秒数

没问题，我来帮你搞定这个时间格式转换的需求！我们可以分两步走：先把纯数字的时间补成xx:00格式，再统一转换成总秒数。下面是具体的实现代码和细节解释：

第一步：统一时间格式 #

首先我们需要把纯数字的时间值补全为分钟:秒的格式，这里可以用grepl判断字符串是否包含冒号，再用ifelse批量处理：

# 补全纯数字时间为xx:00格式
myexample$time_formatted <- ifelse(!grepl(":", myexample$time), 
                                   paste0(myexample$time, ":00"), 
                                   myexample$time)

这段代码的逻辑很简单：

• grepl(":", myexample$time)会返回一个布尔向量，标记每个time值是否包含冒号
• 对于不包含冒号的纯数字值，我们用paste0拼接上:00，把78变成78:00
• 原本就有冒号的数值保持不变

第二步：转换为总秒数 #

接下来我们有两种方法可以把统一后的时间格式转换成总秒数，你可以根据自己的需求选择：

方法一：使用lubridate包（简洁推荐） #

lubridate包是处理时间数据的利器，它的ms()函数可以直接识别分钟:秒格式的字符串，我们只需要把它转换成数值型就能得到总秒数：

# 如果未安装lubridate，先执行安装命令
# install.packages("lubridate")
library(lubridate)

# 计算总秒数
myexample$total_seconds <- as.numeric(ms(myexample$time_formatted))

方法二：手动计算（无需额外包） #

如果你不想加载额外的包，可以手动拆分时间字符串，计算分钟转秒加上秒数：

# 按冒号拆分时间字符串
time_parts <- strsplit(myexample$time_formatted, ":")

# 遍历拆分结果，计算总秒数
myexample$total_seconds <- sapply(time_parts, function(x) {
  as.numeric(x[1]) * 60 + as.numeric(x[2])
})

最终结果 #

执行完上面的代码后，你的数据框会变成这样：

> myexample
    name  time time_formatted total_seconds
1 Carlos 79:45         79:45          4785
2 Matthew   78         78:00          4680
3   Toth 74:45         74:45          4485
4   Mike 65:30         65:30          3930
5 Joseph   64         64:00          3840
6  Andrey   57         57:00          3420

内容的提问来源于stack exchange，提问作者Janderson Pereira Toth