R：在for循环中使用索引

Question

我想知道如何在其中使用“for 循环”的索引 (i)。 特别是对于“$-noataion”

for (i in tickers){
 
  getSymbols(i, from = '2021-01-6',
             to = "2021-10-21",warnings = FALSE,
             auto.assign = TRUE)

  MA9 = mean(tail(i$i.Adjusted, n=9))
  
  print(MA9)
}

感谢您花时间阅读本文！

Answer 1

getSymbols函数同时适用于多个getSymbols代码。 您可以使用mget将它们放入列表中，并且由于Adjusted值是第 6 列，因此您可以对其进行子集化并使用sapply获得最后 9 个值的sapply 。

这是一个带有代码c('QQQ','SPY')的示例。

library(quantmod)
tickers <- c('QQQ','SPY')

getSymbols(tickers, from = '2021-01-6',
           to = "2021-10-21",warnings = FALSE,
           auto.assign = TRUE)

sapply(mget(tickers), function(x) mean(tail(x[, 6], n=9)))

#    QQQ      SPY 
#366.1511 442.2178