使用 for 循环创建数组列表答案

【问题标题】：Creating arraylist using for loop使用 for 循环创建数组列表
【发布时间】：2018-12-07 22:05:48
【问题描述】：

我想创建一个包含某些股票价格数据的数组列表。

首先，我选择了我的一篮子股票：

tickers <- c("^GSPC","MSFT","INTC","NVDA","AAPL")

接下来，我使用 for 循环函数下载了价格数据：

for (i in 1:length(tickers)) {
  getSymbols(tickers[i],
             from = as.Date("2006-01-01"), to = as.Date("2009-12-31"))
}

现在，我想将每个股票数据添加到一个数组列表中，所以我尝试了这样的操作：

s <- list()
for (i in 1:length(tickers)) {
  getSymbols(tickers[i],
             from = as.Date("2006-01-01"), to = as.Date("2009-12-31")) %>%
             {. ->> s[[i]]}
}

但输出似乎只给了我股票名称的数组列表：

[[1]] [1] "GSPC"

[[2]] [1] “微软”

[[3]] [1] "INTC"

[[4]] [1] “英伟达”

[[5]] [1] “苹果”

我在管道函数之后给出的代码有问题吗？

【问题讨论】：

那是因为getSymbols只返回对象的名称。试试get(.)。

标签： r for-loop quantmod

【解决方案1】：

只需使用lapply 创建您的列表对象，并确保将选项auto.assign 设置为FALSE。

library(quantmod)

tickers <- c("^GSPC","MSFT","INTC","NVDA","AAPL")

# Get the ticker data
s <- lapply(tickers, getSymbols, from = as.Date("2006-01-01"), to = as.Date("2009-12-31"), auto.assign = FALSE)

# name the list objects
names(s) <- tickers

str(s)
List of 5
 $ ^GSPC:An ‘xts’ object on 2006-01-03/2009-12-30 containing:
  Data: num [1:1006, 1:6] 1248 1269 1273 1273 1285 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:6] "GSPC.Open" "GSPC.High" "GSPC.Low" "GSPC.Close" ...
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 2
  ..$ src    : chr "yahoo"
  ..$ updated: POSIXct[1:1], format: "2018-12-07 15:01:48"
 $ MSFT :An ‘xts’ object on 2006-01-03/2009-12-30 containing:
.....

【讨论】：