R - quantmod，稍后如何在脚本中引用 getsymbol 数据

Question

对 R 编程非常陌生 - 但我对这个感到困惑：

我只想在脚本中输入一次股票代码数据，但无法弄清楚如何引用，即稍后在使用 Ad(x) 时调整收盘价而无需再次输入股票名称。我试过像下面这样传递一个变量，但收到错误消息：

#get stock series data
stockPair <- c("SPY","DIA")
look_per <- "2015-01-01"
stckA <- suppressWarnings(getSymbols(stockPair[1], from = look_per))
stckB <- suppressWarnings(getSymbols(stockPair[2], from = look_per))

#get Adjusted close data
adA <- Ad(stckA )
adB <- Ad(stckB )


Error in Ad(stckA) : 
  subscript out of bounds: no column name containing "Adjusted"

Answer 1

当您遇到错误时，您应该做的第一件事就是查看您的数据。在这种情况下，stckA 和 stckB 并不是您认为的那样。

R> stckA <- suppressWarnings(getSymbols(stockPair[1], from = look_per))
R> stckB <- suppressWarnings(getSymbols(stockPair[2], from = look_per))
R> str(stckA)
 chr "SPY"
R> str(stckB)
 chr "DIA"

如你所见，这两个对象只是getSymbols返回的符号的字符串，而不是数据。如果要将 getSymbols 的输出分配给对象，则需要设置 auto.assign=FALSE。

R> stckA <- getSymbols(stockPair[1], from = look_per, auto.assign = FALSE)
R> str(Ad(stckA))  # now stckA contains data
An ‘xts’ object on 2015-01-02/2015-08-05 containing:
  Data: num [1:149, 1] 204 200 198 200 204 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr "SPY.Adjusted"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 2
 $ src    : chr "yahoo"
 $ updated: POSIXct[1:1], format: "2015-08-05 20:02:30"

R - quantmod，稍后如何在脚本中引用 getsymbol 数据

R - quantmod, how to reference getsymbol data later in script

r

quantmod