合并由 getSymbols 创建的多个 xts 对象

Question

我正在尝试进行一些股票投资组合模拟。使用“quantmod”包，我下载了多种证券的价格数据。我想完成两件事。

1）我想创建 xts 对象的列表/数组，其中每个证券代码都对应于列表中的时间序列对象。

2）更重要的是，我想创建一个时间序列数据框架，其中包含每种证券每天调整后的股价。

我有以下代码，可下载所有价格数据。

library(quantmod)

tickers <- c("SNC.TO", "PHII", "HBC.TO", "GTE", "MOO",
             "MND.TO", "STKL", "SXC","XIU.TO")

for(i in tickers) {
  getSymbols(i, from = "2010-06-30", to = "2015-06-30") 
}

这是我到目前为止尝试创建数据框列表的方法

pframe <- list()
for(i in tickers) {
  pframe[[i]] <- assign(i)
}

Answer 1

最简单的方法是将所有数据加载到新环境中。然后您可以使用eapply将所有调整后的关闭列提取到列表中。最后，您可以将do.call列表中所有调整后的收盘价合并到一个 xts 对象中。

library(quantmod)
tickers <- c("SNC.TO", "PHII", "HBC.TO", "GTE", "MOO",
             "MND.TO", "STKL", "SXC","XIU.TO")
dataEnv <- new.env()
getSymbols(tickers, from="2010-06-30", to="2015-06-30", env=dataEnv)
plist <- eapply(dataEnv, Ad)
pframe <- do.call(merge, plist)