使用 get() 在 R 中引用 quantmod 数组中的列？

Question

我是 R 新手，在项目中使用 quantmod() 包。以下代码块有效：

require(quantmod) 
stocks<-c("MMM", "MSFT", "BP")
for(i in 1:length(stocks)){
getSymbols(stocks[i], from= "2013-07-01")
s<-get(stocks[i])
dr<-dailyReturn(s)
print(paste(dr))
}

但是，我需要参考特定的列来计算 TTR 包中的一些技术分析指标。例如：

open<-MMM$MMM.Open
RSI(open, n=14)

当我检查时：

identical(s, BP) #TRUE

这很有效：

BP$BP.Open

但是，这不起作用：

s$s.Open #NULL

为了提供足够的上下文，我的目标是遍历股票向量，检查 ] 条件，然后计算当天的一些技术分析和时间序列数据，并将其复制到 ARFF 文件中，用作训练示例机器学习环境（Weka）。谢谢。

Answer 1

使用提取函数Op 等通常更容易。见?OHLC.Transformations。此外，如果您只有一个符号，您可以在对 getSymbols 的调用中使用 auto.assign=FALSE 来避免同时调用 get。

s <- getSymbols("BP", auto.assign=FALSE)

如果您有多个符号，将它们存储在环境中然后使用eapply 循环遍历它们会更容易：

e <- new.env()
getSymbols(stocks, env=e)
dr <- eapply(e, dailyReturn)

您也可以通过这种方式将 TTR 函数应用于每个符号。

rsi <- eapply(e, function(x) RSI(Op(x), n=14))

您可以使用do.call 和cbind 将它们放入一个对象中。

rsi_all <- do.call(cbind, rsi)