的R - 转换日期时间为字符到秒（数字）

Question

我读的CSV文件存储如下

"2013-08-01 00:10:46" 
"2013-08-01 00:10:51" 
"2013-08-01 00:10:53" 
"2013-08-01 00:11:04" 
"2013-08-01 00:11:06" 

在阅读它的数据的时间值被解读为性格，我想将其转换成从秒1970-01-01。我能够使用下面的代码行来实现它，但它需要很长时间才能转换。有没有更好更快的方法来实现这一点

rstarttime <- as.numeric(as.POSIXct(rdata$starttime,origin = "1970-01-01")) 

Answer 1

您可以使用lubridate。

根据下面的试验中，它可以更快大约12倍：

library(lubridate) 
ttt <- c(
    "2013-08-01 00:10:46", 
    "2013-08-01 00:10:51", 
    "2013-08-01 00:10:53", 
    "2013-08-01 00:11:04", 
    "2013-08-01 00:11:06" 
) 

t <- Sys.time() 
q <- as.numeric(as.POSIXct(rep(ttt,50000),origin = "1970-01-01")) 
t1 <- Sys.time() - t 

t <- Sys.time() 
q <- time_length(interval(ymd("1970-01-01"), rep(ttt, 50000)), "second") 
t2 <- Sys.time() - t 

我为T1和T2获得的值分别6秒0.5秒。所以lubridate执行速度快12倍左右。