通过 for 循环在特定列上合并.xts

Question

我下载了很多股票数据，需要将其与相关指数进行比较。为此，我需要在开始计算对数回报之前合并时间序列数据（仅限调整后的收盘价列）。

我已尝试使用 for 循环按以下方式执行此操作：请注意，我已将所有数据下载到单独的环境中，因为它包含许多股票代码的大量数据。

require(quantmod)
e<-new.env()
tickers<-c("GE","BMW.DE","NOVO-B.CO","1COV.DE")
getSymbols("^GSPC",from="2018-01-01")
getSymbols(tickers,from="2019-01-01",env=e)

现在我想取环境 e 中每个元素的第 6 列（调整后的收盘价），并将 merge.xts(join="inner") 应用于该列，以将其与 GSPC 的调整后收盘价结合起来。我选择 join="inner" 以确保我只有与 xts 日期匹配的观察结果。

for(ticker in tickers){
x<-get(ticker,envir=e)[,6]
merged_prices<-merge.xts(x,GSPC[,6])
}

当我尝试执行此操作时出现错误，我还尝试在运行 for 循环之前创建一个数据框，但我无法让它工作。

提前致谢。

Answer 1

通过使用环境，您走在了正确的轨道上。干得好！

您想从每个符号中提取调整后的收盘列并将它们合并到一个 xts 对象中。您的for 循环走在了正确的轨道上，但有一种更简单的方法。您可以使用lapply() 循环环境中的元素，并使用Ad() 函数提取调整后的关闭列。然后使用do.call(merge, ...)在lapply()的输出上调用merge函数。

merged_prices <- do.call(merge, lapply(e, Ad))

此时您可以合并 GSPC 的调整后收盘价 (merge(Ad(GSPC), merged_prices))，或者您可以将其包含在您的代码列表中。