将具有纪元时间戳的数据帧转换为R中具有毫秒的时间序列

Question

我有以下data.frame：

df <- data.frame(timestamp=c(1428319770511, 1428319797218, 1428319798182, 1428319803327, 1428319808478),
                 session=c("A","A","B","A","A"))

我想将此数据框转换为时间序列，并在短于一秒的时间窗口上工作。 我已经尝试过zoo和xts ，但我发现很难将时代表示为日期。 这是我已经尝试过的：

df$date<-strptime(as.POSIXct(df$timestamp, origin="1970-01-01"),format="%Y-%m-%d %H:%M:%OS")

哪个返回NAs。 打电话给：

df$date<-strptime(as.POSIXct(df$timestamp/1000, origin="1970-01-01"),format="%Y-%m-%d %H:%M:%OS")

有效，但不包含毫秒数据。 我也试过玩options(digits.secs=3)但没有运气。

我想我在这里用R的处理毫秒来打一个小墙，但任何想法都会非常感激。

- -编辑 - -

好的，感谢Joshua的回答和评论，这里将 @jirk Eddelbuettel的UNIX纪元转换为R中的Date对象 ，除以1000不会截断数据。 这样可行：

options(digits.secs = 3)
df$date<-as.POSIXct(df$timestamp/1000, origin="1970-01-01", tz="UTC")

哪个回报：

timestamp       session date    
1428319770511   A       2015-04-06 14:29:30.510
1428319797218   A       2015-04-06 14:29:57.217
1428319798182   B       2015-04-06 14:29:58.181
1428319803327   A       2015-04-06 14:30:03.326
1428319808478   A       2015-04-06 14:30:08.477

Answer 1

您的时间戳以毫秒为单位。 您需要将它们转换为秒，以便能够将它们与as.POSIXct一起使用。 在POSIXct向量上调用strptime没有意义。

此外，最好明确设置时区，而不是将其设置为"" 。

df$datetime <- as.POSIXct(df$timestamp/1000, origin="1970-01-01", tz="UTC")
options(digits.secs=6)
df
#     timestamp session                datetime
# 1 1.42832e+12       A 2015-04-06 11:29:30.510
# 2 1.42832e+12       A 2015-04-06 11:29:57.217
# 3 1.42832e+12       B 2015-04-06 11:29:58.181
# 4 1.42832e+12       A 2015-04-06 11:30:03.326
# 5 1.42832e+12       A 2015-04-06 11:30:08.477

我不确定你为什么没有看到毫秒级的分辨率......