主页 / coding / 问题 / 78825757
Accepted
pglpm
Asked: 2024-08-02 21:31:01 +0800 CST

R：将字符串转换为以秒为单位的时间流逝

  • 772

在基础 R 中，有没有办法（尝试）将可能包含延时信息的字符串转换为秒？

我的意思是，像'30 min'、'1800 s'、'0.5 h'这样的字符串'00:30:00'都会被转换为1800。这个想法类似于Linux 命令at在解释时间信息时所做的操作。

类似的问题是这个，但就我而言，我感兴趣的是时间流逝，而不是时间点（日期），而且我事先不知道字符串中使用的时间格式。

干杯!

1 个回答

  1. Best Answer

    假设显示的模式是唯一出现的模式，确定它是否需要 difftime 或乘数并应用指示的那个。如果可以使用其他后缀，则可以将它们附加到mult。

    toSecs <- function(x) {
  code <- gsub("[0-9. ]", "", x) #s, min or h
  mult <- c(s = 1, min = 60, h = 3600)
  ifelse(grepl(":", x), 
    as.numeric(as.difftime(x, unit = "secs")), 
    as.numeric(gsub("[^0-9.]", "", x))  * mult[code]
  )
}

toSecs(x)
## [1] 1800 1800 1800 1800
    • 3

相关问题