相关疑难解决方法(0)

我有一个数字向量，表示自 1970 年 1 月 1 日以来的毫秒数。我想使用 将它们转换为日期时间对象lubridate。数据示例如下：

raw_times <- c(1139689917479, 1139667123031, 1140364113915, 1140364951003, 
               1139643685434, 1139677091970, 1139691963511, 1140339448413, 1140368308429, 
               1139686613641, 1139666081813, 1140351488730, 1140346617958, 1141933663183, 
               1141933207579, 1140360125149, 1140351845108, 1140365079103, 1141933549825, 
               1140365601476)

as_date知道和 的文档表明它们采用表示自 1970 年 1 月 1 日以来的天as_datetime数的数字向量，我尝试了以下操作：

library(lubridate)

as_date(raw_times / (1000 * 60 * 60 * 24))
"2006-02-11" "2006-02-11" "2006-02-19" "2006-02-19" "2006-02-11" 
"2006-02-11" "2006-02-11" "2006-02-19" "2006-02-19" "2006-02-11" 
"2006-02-11" "2006-02-19" "2006-02-19" "2006-03-09" "2006-03-09"
"2006-02-19" "2006-02-19" "2006-02-19" "2006-03-09" "2006-02-19"