将小时：分钟：秒（HH：MM：SS）字符串转换为适当的时间类

Posted 2023-02-22

【中文标题】将小时：分钟：秒（HH：MM：SS）字符串转换为适当的时间类

【英文标题】：Convert hour:minute:second (HH:MM:SS) string to proper time class

【发布时间】：2012-08-15 14:12:50

【问题描述】：

在以下数据框中，“时间”列是character，格式为hour:minute:second

id <- c(1, 2, 3, 4)
time <- c("00:00:01", "01:02:00", "09:30:01", "14:15:25")
df <- data.frame(id, time)

如何将“时间”列转换为专用的时间类，以便对其进行算术计算？

【参考方案1】：

使用包chron中的函数chron：

time<-c("00:00:01", "01:02:00", "09:30:01", "14:15:25")

library(chron)
x <- chron(times=time)

x
[1] 00:00:01 01:02:00 09:30:01 14:15:25

做一些有用的事情，比如计算连续元素之间的差异：

diff(x)
[1] 01:01:59 08:28:01 04:45:24

---

chron 对象在内部将值存储为每天几分之一秒。因此 1 秒相当于1/(60*60*24)，或1/86400，即1.157407e-05。

所以，要添加时间，一个简单的选择是：

x + 1/86400
[1] 00:00:02 01:02:01 09:30:02 14:15:26

【讨论】：

如果我有 12 小时格式的时间怎么办？示例：time<-c("01:00:01 am", "01:02:00 pm", "09:30:01 am", "02:15:25 pm")。 chron() 不处理这个问题。那么，它还有其他功能吗？

有没有办法将它与 HH:MM 格式一起使用？ chron(times=time, format=c(times="h:m")) 不起作用...

【参考方案2】：

使用基础 R，您可以将其转换为 POSIXct 类的对象，但这确实会为时间添加日期：

id<-c(1,2,3,4)
time<-c("00:00:01","01:02:00","09:30:01","14:15:25")
df<-data.frame(id,time,stringsAsFactors=FALSE)

as.POSIXct(df$time,format="%H:%M:%S")
[1] "2012-08-20 00:00:01 CEST" "2012-08-20 01:02:00 CEST"
[3] "2012-08-20 09:30:01 CEST" "2012-08-20 14:15:25 CEST"

但这确实允许您对它们执行算术计算。

【讨论】：

如何根据 hh:mm:ss 找到子集？我不认为子集(df, df$time >"2012-08-20 00:00:01 CEST" | df$time <"2012-08-20 14:15:25 CEST" 有效。

如果时间是 12 小时格式，使用 AM/PM 怎么办？

【参考方案3】：

另一种可能的选择是：

time <- c("00:00:01","01:02:00","09:30:01","14:15:25")
converted.time <- as.difftime(time, units = "mins") #"difftime" class
secss <- as.numeric(converted.time, units = "secs")
hourss <- as.numeric(converted.time, units = "hours")
dayss <- as.numeric(converted.time, units="days")

甚至：

w <- strptime(x = time, format = "%H:%M:%S") #"POSIXlt" "POSIXt" class

【参考方案4】：

使用data.table 包中的ITime 类：

ITime 是一个时间类，存储为一天中的整数秒数。

library(data.table)
(it <- as.ITime(time))
# [1] "00:00:01" "01:02:00" "09:30:01" "14:15:25"

it + 10
# [1] "00:00:11" "01:02:10" "09:30:11" "14:15:35"


diff(it)
# [1] "01:01:59" "08:28:01" "04:45:24"

【参考方案5】：

lubridate 在时间格式上有很好的灵活性：

library(lubridate)

time_hms_1<-c("00:00:01", "01:02:00", "09:30:01", "14:15:25")
hms(time_hms_1)
#> [1] "1S"          "1H 2M 0S"    "9H 30M 1S"   "14H 15M 25S"


time_hms_2<-c("0:00:01", "1:02:00", "9:30:01", "14:15:25")
hms(time_hms_2)
#> [1] "1S"          "1H 2M 0S"    "9H 30M 1S"   "14H 15M 25S"

time_hm_1<-c("00:00", "01:02", "09:30", "14:15")
hm(time_hm_1)
#> [1] "0S"         "1H 2M 0S"   "9H 30M 0S"  "14H 15M 0S"

time_hm_2<-c("0:00", "1:02", "9:30", "14:15")
hm(time_hm_2)
#> [1] "0S"         "1H 2M 0S"   "9H 30M 0S"  "14H 15M 0S"

^{由reprex package (v0.3.0) 于 2020 年 7 月 3 日创建}

【参考方案6】：

使用hms 包的另一种选择。

id <- c(1, 2, 3, 4)
time <- c("00:00:01", "01:02:00", "09:30:01", "14:15:25")
df <- data.frame(id, time, stringsAsFactors = FALSE)

将列time 转换为类hms

# install.packages("hms")
library(hms)
df$time <- as.hms(df$time)

执行算术计算

diff(df$time)
#01:01:59
#08:28:01
#04:45:24