如何将timeDate列表合并到单个timeDate中？

debugcn 发表于 Dev

国际象棋

我可以timeDate为纽约交易所生成对象列表。但是，大多数分析功能都期望单个timeDate对象。底层的数据表示形式是POSIXct，因此我不能像矢量或列表一样附加它们。

怎么做？

library(timeDate)
x <- lapply(c(1885: 1886), holidayNYSE)
x

[[1]]
NewYork
[1] [1885-01-01] [1885-02-23] [1885-04-03] [1885-11-03] [1885-11-26] [1885-12-25]

[[2]]
NewYork
[1] [1886-01-01] [1886-02-22] [1886-04-23] [1886-05-31] [1886-07-05] [1886-11-02] [1886-11-25]

class(x[[1]])
[1] "timeDate"
attr(,"package")
[1] "timeDate"

class(x[[1]]@Data)
[1] "POSIXct" "POSIXt"

# ??? How to my two datetime objects ???

阿克伦

我们可以使用do.call与c

x1 <- do.call(c, x)
x1
#NewYork
#[1] [1885-01-01] [1885-02-23] [1885-04-03] [1885-11-03] [1885-11-26] [1885-12-25] [1886-01-01] [1886-02-22] [1886-04-23] [1886-05-31] [1886-07-05] [1886-11-02]
#[13] [1886-11-25]

str(x1)
#Formal class 'timeDate' [package "timeDate"] with 3 slots
#  ..@ Data     : POSIXct[1:13], format: "1885-01-01 05:00:00" "1885-02-23 05:00:00" "1885-04-03 05:00:00" "1885-11-03 05:00:00" ...
#  ..@ format   : chr "%Y-%m-%d"
#  ..@ FinCenter: chr "NewYork"

OP的结构list是

str(x)
#List of 2
#$ :Formal class 'timeDate' [package "timeDate"] with 3 slots
#  .. ..@ Data     : POSIXct[1:6], format: "1885-01-01 05:00:00" "1885-02-23 05:00:00" "1885-04-03 05:00:00" "1885-11-03 05:00:00" ...
#  .. ..@ format   : chr "%Y-%m-%d"
#  .. ..@ FinCenter: chr "NewYork"
# $ :Formal class 'timeDate' [package "timeDate"] with 3 slots
#   .. ..@ Data     : POSIXct[1:7], format: "1886-01-01 05:00:00" "1886-02-22 05:00:00" "1886-04-23 05:00:00" "1886-05-31 05:00:00" ...
#  .. ..@ format   : chr "%Y-%m-%d"
#  .. ..@ FinCenter: chr "NewYork"

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。