r语言 - 将 xts 类复制到一个列表中

Question

我有一个 xts 对象frame

frame <- structure(c("a", "a", "a"), .Dim = c(3L, 1L), index = structure(c(946702800, 
946749600, 946796400), tzone = "", tclass = c("POSIXct", "POSIXt"
)), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", "POSIXt"
), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "")

> frame
                    [,1]
2000-01-01 05:00:00 "a" 
2000-01-01 18:00:00 "a" 
2000-01-02 07:00:00 "a" 

我想列出这个长度为 5 的xts对象。

但是当我这样做时，我失去了日期和时间......如何在不丢失 xts 类的情况下创建复制xts对象的列表？

> class(frame)
[1] "xts" "zoo"
> class( replicate(5, frame)[1])
[1] "character"
> replicate(5, frame)
, , 1
     [,1]
[1,] "a" 
[2,] "a" 
[3,] "a"    # seriously... :(
.........

Answer 1

在调用replicate时设置simplify=FALSE：

> replicate(5, frame, simplify=FALSE)
[[1]]
                    [,1]
2000-01-01 05:00:00 "a" 
2000-01-01 18:00:00 "a" 
2000-01-02 07:00:00 "a"