如何在R中将时间转换为总毫秒数？

Question

我想在R中将时间转换为总毫秒数。

实施例

13:00 - ＆gt; 46800000

Answer 1

为了它的乐趣：

f <- function(v) sapply(strsplit(v, ":", T), function(x) sum(as.numeric(x) * c(60*60, 60, 1)[seq(x)]*1000))
f(c("13:00", "13:00:00", "14:00:00.001"))       
# [1] 46800000 46800000 50400001