r语言 - 如何更简洁地从"start - end"字符串计算持续时间

Question

我有时间戳，指示事件开始和结束的时间：

x <- "00:01:00.000 - 00:01:10.500"

我需要计算事件的持续时间。使用包lubridate中的hms以及lapply和strsplit确实给了我预期的输出：

library(lubridate)
unlist(lapply(strsplit(x, split=" - "), function(x) as.numeric(hms(x))))[2] - unlist(lapply(strsplit(x, split=" - "), function(x) as.numeric(hms(x))))[1] 
[1] 10.5

但我觉得代码非常不雅，一点也不简洁。有没有更好的方法来获得持续时间？

编辑：

如果确实是，那么x中有不止一个值，例如：

x <- c("00:01:00.000 - 00:01:10.500", "00:12:12.000 - 00:13:10.500")

我想出了这个解决方案：

timepoints <- lapply(strsplit(x, split=" - "), function(x) as.numeric(hms(x)))
duration <- lapply(timepoints, function(x) x[2]-x[1])
duration
[[1]]
[1] 10.5
[[2]]
[1] 58.5

但是，再说一遍，肯定有一个更好、更短的。

Answer 1

这里有一种方法：

as.numeric(diff(lubridate::hms(strsplit(x, split=" - ")[[1]])))
#[1] 10.5

保持在基地R:

as.numeric(diff(as.POSIXct(strsplit(x, split=" - ")[[1]], format = '%H:%M:%OS')))
#[1] 10.5

---

对于多个值，我们可以使用sapply:

library(lubridate)
sapply(strsplit(x, " - "), function(y) diff(period_to_seconds(hms(y))))
#[1] 10.5 80.5

和在基地R:

sapply(strsplit(x, " - "), function(y) {
x1 <- as.POSIXct(y, format = '%H:%M:%OS')
difftime(x1[2], x1[1], units = "secs")
})

Answer 2

假设x可以是一个字符向量，使用read.table将其读取到数据帧中，然后将相关列转换为hms，取其差值并转换为数字，给出所示向量。如果使用的是4.0之前的R版本，则可能需要将as.is=TRUE参数设置为read,table。

library(lubridate)
# test input
x <- c("00:01:00.000 - 00:01:10.500", "00:01:00.000 - 00:01:10.500")
with(read.table(text = x), as.numeric(hms(V3) - hms(V1)))
## [1] 10.5 10.5

或者使用magrittr和与上述相同的输入CCD_ 11：

library(lubridate)
library(magrittr)
x %>%
read.table(text = .) %$% 
as.numeric(hms(V3) - hms(V1))
## [1] 10.5 10.5