r - 在 R 中合并不同 XTS 对象的许多列表

Question

我有 3 个大型 XTS 对象列表:“SMA”； “L”，“丸坊主”。快速看看它的样子:

> names(Marubozu)
 [1] "TSLA"  "AAPL"  "NTES"  "GOOGL" "ASML"  "GOOG"  "NFLX"  "ADBE"  "AMZN"  "MSFT"  "ADI"   "FB"   
> names(SMA)
 [1] "TSLA"  "AAPL"  "NTES"  "GOOGL" "ASML"  "GOOG"  "NFLX"  "ADBE"  "AMZN"  "MSFT"  "ADI"   "FB"   
> names(L)
 [1] "TSLA"  "AAPL"  "NTES"  "GOOGL" "ASML"  "GOOG"  "NFLX"  "ADBE"  "AMZN"  "MSFT"  "ADI"   "FB"

> head(Marubozu$AAPL, n = 2)
           WhiteMarubozu BlackMarubozu
2000-01-03         FALSE         FALSE
2000-01-04         FALSE         FALSE
> head(SMA$AAPL, n = 2)
           UpTrend NoTrend DownTrend Trend
2000-01-03      NA      NA        NA    NA
2000-01-04      NA      NA        NA    NA
> head(L$AAPL, n =2)
           AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted
2000-01-03  0.936384  1.004464 0.907924   0.999442   535796800      0.856887
2000-01-04  0.966518  0.987723 0.903460   0.915179   512377600      0.784643   

我想合并该列表中相应的 XTS 对象，以便它创建一个大的 lig 列表。例如，New_List$AAPL 的输出为:

AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted WhiteMarubozu BlackMarubozu UpTrend NoTrend DownTrend Trend
2000-01-03  0.936384  1.004464 0.907924   0.999442   535796800      0.856887             0             0      NA      NA        NA    NA
2000-01-04  0.966518  0.987723 0.903460   0.915179   512377600      0.784643             0             0      NA      NA        NA    NA

我尝试创建一个列表列表并将其合并，但没有成功。在这里你可以看到:

#That works for a single ticker AAPL      
full <- merge.xts(L$AAPL, Marubozu$AAPL, SMA$AAPL)

#This doesn't work
out3 <- Map(function(x) {full$x <- merge.xts(lista[[1]]$x, lista[[2]]$x)}, lista)

我想这只是一些简单的两行代码，但无法真正找到解决方案，感谢您的回复!

Answer 1

我们可以使用 Map 来做到这一点 - 因为 xts 元素的 list 具有相同顺序的相同代码，只需使用 Map 而不是创建 list 的 list

library(xts)
out <- Map(merge.xts, L, Marubozu, SMA)