在 R 中转换时间戳

Question

我正在尝试将时间戳（例如 2'30"50工作。有人对如何转换有任何提示吗？

Answer 1

这里有两个以秒为单位获取时间的选项。

选项 1 - 从字符串中提取数字，将第一个数字乘以 3600，第二个乘以 60，第三个乘以 1，然后将它们相加。

x <- c("2'30\"50", "1'01\"15")

sapply(stringr::str_extract_all(x, '\\d+'), function(x) {
  x1 <- as.numeric(x) 
  x1[1] * 3600 + x1[2] * 60 + x1[3]
})
#[1] 9050 3675

选项 2 - 使用 hms 将时间戳转换为周期hms并使用period_to_seconds以秒为单位转换时间戳。

library(lubridate)
period_to_seconds(hms(x))
#[1] 9050 3675

如果您希望 output 以毫秒为单位，请将 output 乘以 1000。