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