用子秒解析时间数据

Question

我有一些时间数据

01:09:00
00:14:00
00:00:00
11:47:00
10:34:00
08:15:00

数据是用%M:%S:00测量的(第一个数字是分钟，第二个数字是秒)。我想把它转换成总秒数。这在lubridate中很容易实现，但是R一直认为格式是%H:%M:%S。

lubridate能计算出以我的数据的格式经过的总秒数吗？如果不是，如何将数据转换为适当的格式？

我曾想过要转换成角色，只需要剪接几分钟和几秒。

Answer 1

library(lubridate)
foo = function(x){
    hms(sapply(strsplit(x, ":"), function(xx) paste("01", xx[1], xx[2], sep = ":")))
}
a = "01:09:00"
b = "00:14:00"
foo(a) - foo(b)
#[1] "1M -5S"

#OR
as.period(foo(a) - foo(b), unit = "secs")
#[1] "55S"

Answer 2

也许以下几点就能做到。

NumSeconds <- function(x){
    f <- function(y)
        sum(sapply(strsplit(y, split=":"), as.numeric) * c(60, 1, 0))
    unname(sapply(x, f))
}

x <- scan(what = "character", text = "
01:09:00
00:14:00
00:00:00
11:47:00
10:34:00
08:15:00")

NumSeconds(x)
[1]  69  14   0 707 634 495

Answer 3

您可以使用data.table::as.ITime并将格式指定为"%M:%S"*

x <- c("01:09:00", "10:34:00")
as.integer(as.ITime(x, format = "%M:%S"))
# [1]  69 634

* format参数传递给strptime和.

对于指定的格式，将尽可能处理每个输入字符串:忽略任何尾随字符。..。请注意，%S不读取输出的小数部分。

或者，最有可能更快，substr

as.integer(substr(x, 1, 2)) * 60 + as.integer(substr(x, 4, 5))
# [1]  69 634