r - 将posixlt作为新列添加到数据框

我正在创建一些随机数：

data <- matrix(runif(10, 0, 1), ncol = 2)
dataframe <- data.frame(data)

> dataframe
         X1         X2
1 0.7981783 0.13233858
2 0.9592338 0.05512942
3 0.1812384 0.74571334
4 0.1447498 0.96656930
5 0.1735390 0.37345575

我想创建一个相应的时间戳列，并将其绑定到上述数据框。

time <- as.POSIXlt(runif(10, 0, 60), origin = "2017-05-05 10:00:00")

这将创建10个值。

> time
 [1] "2017-05-05 13:00:27 EEST" "2017-05-05 13:00:02 EEST" "2017-05-05 13:00:26 EEST" "2017-05-05 13:00:25 EEST" "2017-05-05 13:00:28 EEST"
 [6] "2017-05-05 13:00:17 EEST" "2017-05-05 13:00:35 EEST" "2017-05-05 13:00:08 EEST" "2017-05-05 13:00:29 EEST" "2017-05-05 13:00:32 EEST"

现在，我想将其绑定到数据框，因此我首先考虑将其制成矩阵：

time <- matrix(time, nrow = 5, ncol = 2)

但这给了我：

Warning message:
In matrix(time, nrow = 5, ncol = 2) :
  data length [11] is not a sub-multiple or multiple of the number of rows [5]

最佳答案

原因是POSIXlt将日期时间存储为属性的list，而POSIXct不会。因此，最好使用as.POSIXct

time <- as.POSIXct(runif(10, 0, 60), origin = "2017-05-05 10:00:00")

如果需要存储，可以将其作为list的data.frame

data.frame(date1= time[1:5], date2 = time[6:10])

而不转换为matrix，因为转换为integer时'Datetime'被强制为matrix存储模式。

假设我们继续POSIXlt，然后找到属性的list

time1 <- as.POSIXlt(runif(10, 0, 60), origin = "2017-05-05 10:00:00")
unclass(time1)
#$sec
# [1] 13.424695 40.860449 57.756890 59.072140 24.425521 39.429729 58.309546
# [8]  6.294982 46.613436 25.444415

#$min
# [1] 30 30 30 30 30 30 30 30 30 30

#$hour
# [1] 15 15 15 15 15 15 15 15 15 15

#$mday
# [1] 5 5 5 5 5 5 5 5 5 5

#$mon
# [1] 4 4 4 4 4 4 4 4 4 4

#$year
# [1] 117 117 117 117 117 117 117 117 117 117

#$wday
# [1] 5 5 5 5 5 5 5 5 5 5

#$yday
# [1] 124 124 124 124 124 124 124 124 124 124

#$isdst
# [1] 0 0 0 0 0 0 0 0 0 0

#$zone
# [1] "IST" "IST" "IST" "IST" "IST" "IST" "IST" "IST" "IST" "IST"

#$gmtoff
# [1] 19800 19800 19800 19800 19800 19800 19800 19800 19800 19800

#attr(,"tzone")
#[1] ""    "IST" "IST"

对于POSIXct，它是unclass可以找到的整数存储值

 unclass(time)
 #[1] 1493978445 1493978451 1493978432 1493978402 1493978447 1493978441
 #[7] 1493978445 1493978450 1493978419 1493978425
 #attr(,"tzone")
 #[1] ""