R - Для цикла и применить функцию (Quantmod)

Question

Hy,

У меня есть этот кадр данных, я хочу загрузить данные из Yahoo и Вычислить процентное изменение (функция Delt в Quantmod)

View(Equity) 

    Symbol 
1  A 
2  AA 
3 AAC 

I сделал цикл

m<-nrow(Equity) 

for (i in 1:m) { 

    EquityDF <- Equity[i,] 
    Data<-getSymbols(EquityDF,src="yahoo") 
    Delt[i]<-apply(EquityDF[,1:5], 2, function(x) Delt(x, k=1)*100) 

} 

Но я получил эту ошибку

Error in EquityDF[, 1:5] : incorrect number of dimensions 

Я знаю, почему эта ошибка появляется, потому что если я

EquityDF 

значения выходного это

"A" 

, как я могу это исправить?

Благодаря

Answer 1

Это происходит потому, что EquityDF еще характер. Для того, чтобы получить соответствующие данные вы должны использовать получить: get(EquityDF)[, 1:5]

Кроме того, я хотел бы предложить, чтобы позвонить getSymbols только один раз, так что вы извлекаете все необходимые данные в одном вызове, таким образом, ваш код может быть упрощена:

Equity <- data.frame(Symbol = c("A","AA","AAC"), stringsAsFactors = FALSE) 
getSymbols(Equity[, 1], src="yahoo") 
Delt <- lapply(mget(Equity[, 1]), function(y){ 
      apply(y[, 1:5], 2, function(x) Delt(x, k=1)*100)})