r - 如何仅使用 getSymbols 将多个收盘价下载到单独的 xts 文件中？

Question

如何使用 quantmod 包中的 getSymbols 执行以下操作:

下载多个股票价格历史记录

仅选择调整后的收盘价——即抑制开盘/高/低和成交量数据

将每个价格历史保存为单独的 xts 文件，日期为

我可以实现第 1 步和第 2 步，但在第 3 步时遇到问题。StackOverflow 有几篇关于下载和合并多个代码的价格的帖子，但我找不到下载和保存在单独文件中的说明。

这是我到目前为止所拥有的。任何关于实现最后一步的建议将不胜感激。提前致谢!

library(quantmod)
symbols = c("GOOG","MSFT","AAPL")
getSymbols(symbols, from="2011-01-01")
ClosePrices <- lapply(symbols, function(x) Ad(get(x)))

我怀疑解决方案是将 ClosePrices 文件分成单独的文件，每个文件一个，但我不确定如何这样做。

Answer 1

对于第 1 部分，请参阅我的回答 here .您的方法不适用于像 ^GSPC 这样的索引符号或通常以特殊字符开头的任何符号(由于自动分配)。

至于第 3 部分，一旦您获取所有符号并将它们存储到 myList 中如上面链接中所述，请尝试以下操作来遍历您的列表并将列表元素导出到您的工作目录:

require(quantmod)

#Vector of symbols to fetch prices for
symbols <- c('MSFT','SBUX','GOOGL')

#Initialize a list to store the fetched prices
myList <- list()

#Loop through symbols, fetch prices, and store in myList
myList <-lapply(symbols, function(x) {getSymbols(x,auto.assign=FALSE)} )

#Housekeeping
names(myList) <- symbols

#Export to seperate files
quiet <- lapply(1:length(myList), function(x){    #looping through all elements of your list
  write.csv(myList[[x]],     #accessing the xth element of your list
            paste0(names(myList)[x],'.csv'),   #naming the exported element
            row.names=index(myList[[x]])   #include dates in the export
  )  #close write.csv
}  #close function
)  #close lapply

编辑:根据第一条评论合并两个帖子。