如何在 R 中使用像 3d 数组这样的 xts 对象列表？

Question

我想以可以用作 3d 数组的方式访问 xts 对象列表。

这是示例数据。由于这只是一个例子，我在所有对象中都保留了相同的数据。

data(sample_matrix)
sample.xts_1 <- as.xts(sample_matrix, descr='Object 1')
sample.xts_2 <- as.xts(sample_matrix, descr='Object 2')
sample.xts_3 <- as.xts(sample_matrix, descr='Object 3')

data_list = list(a = sample.xts_1, b = sample.xts_2, c = sample.xts_3)

这个数据看起来像这样 -

$a
           Open High  Low Close
2007-01-02 50.0 50.1 50.0  50.1
2007-01-03 50.2 50.4 50.2  50.4
$b
           Open High  Low Close
2007-01-02 50.0 50.1 50.0  50.1
2007-01-03 50.2 50.4 50.2  50.4
$c
           Open High  Low Close
2007-01-02 50.0 50.1 50.0  50.1
2007-01-03 50.2 50.4 50.2  50.4

是否有按以下方式访问这些列表元素的简单方法？

$open
            a    b    c 
2007-01-02 50.0 50.0 50.0 
2007-01-03 50.2 50.2 50.2 
2007-01-04 50.4 50.4 50.4 
2007-01-05 50.4 50.4 50.4 
2007-01-06 50.2 50.2 50.2 
2007-01-07 50.1 50.1 50.1 
2007-01-08 50.0 50.0 50.0 

$high
            a    b    c 
2007-01-02 50.1 50.1 50.1 
2007-01-03 50.4 50.4 50.4 
2007-01-04 50.4 50.4 50.4 
2007-01-05 50.4 50.4 50.4 
2007-01-06 50.2 50.2 50.2 
2007-01-07 50.2 50.2 50.2 
2007-01-08 50.1 50.1 50.1 

$low
            a    b    c 
2007-01-02 50.0 50.0 50.0 
2007-01-03 50.2 50.2 50.2 
2007-01-04 50.3 50.3 50.3 
2007-01-05 50.2 50.2 50.2 
2007-01-06 50.1 50.1 50.1 
2007-01-07 50.0 50.0 50.0 
2007-01-08 50.0 50.0 50.0 


$close
            a    b    c 
2007-01-02 50.1 50.1 50.1 
2007-01-03 50.4 50.4 50.4 
2007-01-04 50.3 50.3 50.3 
2007-01-05 50.3 50.3 50.3 
2007-01-06 50.2 50.2 50.2 
2007-01-07 50.0 50.0 50.0 
2007-01-08 50.0 50.0 50.0

Answer 1

一个选项是 split 按列，transpose 输出和 cbind 一起

library(purrr)
out <- map(data_list, ~ asplit(.x, 2)) %>%
      transpose %>%
      map(~do.call(cbind, .x))

map(out, head, 3)
#$Open
#                  a        b        c
#2007-01-02 50.03978 50.03978 50.03978
#2007-01-03 50.23050 50.23050 50.23050
#2007-01-04 50.42096 50.42096 50.42096

#$High
#                  a        b        c
#2007-01-02 50.11778 50.11778 50.11778
#2007-01-03 50.42188 50.42188 50.42188
#2007-01-04 50.42096 50.42096 50.42096

#$Low
#                  a        b        c
#2007-01-02 49.95041 49.95041 49.95041
#2007-01-03 50.23050 50.23050 50.23050
#2007-01-04 50.26414 50.26414 50.26414

#$Close
#                  a        b        c
#2007-01-02 50.11778 50.11778 50.11778
#2007-01-03 50.39767 50.39767 50.39767
#2007-01-04 50.33236 50.33236 50.33236

如何在 R 中使用像 3d 数组这样的 xts 对象列表？

How to use list of xts objects like a 3d array in R?

arrays

3d

r

list

xts