的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倍左右。