quantmod，无法通过chartSeries循环

Question

install.packages("quantmod")
library(quantmod)

company_list <- c("AMD","AMZN","JPM","GOOG","COST")
for (i in 1:length(company_list)){
  symbol <- company_list[i]
  data_in <- as.name(symbol)
  getSymbols(symbol)
  chartSeries(data_in,subset="last 9 months")
  addSMA(10,col="blue")
  addSMA(20,col="red")
}

Try.xts中的错误(x，Error = "chartSeries需要可xtsible对象“)：chartSeries需要xtsible对象

不知何故，这段代码停留在chartSeries(data_in，subset=“最后9个月”)上。

Answer 1

您必须将xts对象交给chartSeries，并使用get(symbol)：

company_list <- c("AMD","AMZN")
for (i in 1:length(company_list)){
  symbol <- company_list[i]
  getSymbols(symbol)
  chartSeries(get(symbol),subset="last 9 months")
  addSMA(10,col="blue")
  addSMA(20,col="red")
}