如何在R中將字符時間更改為數字時間

Question

我有一個像這樣的字符變量：

"1h 3m 6s
 0h 13m 30s
 0h 15m 12s"

所需的輸出正在轉換為數字秒。 我該怎么辦？

Answer 1

我們需要在小時前的空格處將單個字符串轉換為子字符串（使用strsplit ），將 'h'、'm'、's' 分別替換為strsplit和 1，並進行評估以獲得輸出作為秒

library(gsubfn)     
str2 <- strsplit(str1, "\\s(?=\\d+h)", perl = TRUE)[[1]]

如果字符串分隔是換行符，則執行

str2 <- strsplit(str1, "\n\\s")[[1]]

使用gsubfn替換 'h'、'm'、's' 值並稍后評估

unname(sapply(gsubfn("([a-z]+)", list(h = " * 3600", m = " * 60", s = " * 1"), 
        gsub(" ", " + ", str2)), function(x) eval(parse(text = x))))
#[1] 3786  810  912

---

如果我們使用lubridate的period_to_seconds可以拆分后的字符串中使用並將其轉換為一個Period與類as.period

library(lubridate)
period_to_seconds(as.period(toupper(str2)))
#[1] 3786  810  912

數據

str1 <- "1h 3m 6s 0h 13m 30s 0h 15m 12s"