quantmod、ないがtry.xtsで

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") 
} 

エラー（X、エラー= "chartSeriesはxtsibleオブジェクトが必要"）： chartSeriesはxtsibleオブジェクトを必要

何とかchartSeriesで立ち往生このコード（ DATA_IN、サブセット= "最後の9ヶ月"）

Answer 1

あなたはget(symbol)で、XTSを与えるchartSeriesに反対する必要があります。

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") 
}