R（quantmod），绘制自己的指标，seq.default 中的错误

Question

我想在 quantmod 中绘制我自己的简单指标，如下所示：

own.ind <- as.matrix(c(1,2,3), ncol=1, nrow=3)
rownames(own.ind) <- c("2017-01-23", "2017-01-24", "2017-01-25")
own.ind <- as.xts(own.ind)
getSymbols("AAPL", from = as.Date("2017-01-23"), to = as.Date("2017-01-25"))
chartSeries(AAPL)
addTA(own.ind)

但这让我误会了

Error in seq.default(min(tav * 0.975, na.rm = TRUE), max(tav * 1.05, na.rm = TRUE),  : 
'from' cannot be NA, NaN or infinite

还有两个额外的警告：

1: In min(tav * 0.975, na.rm = TRUE) :  no non-missing arguments to min; returning Inf
2: In max(tav * 1.05, na.rm = TRUE) :  no non-missing arguments to max; returning -Inf

怎么了？

Answer 1

问题是own.ind 对象的索引与AAPL 对象中的任何索引值都不对齐。这是因为as.xts 默认将矩阵的行名转换为POSIXct。 POSIXct 对象有时区，Date 对象没有时区。

R> merge(Cl(AAPL), own.ind)
           AAPL.Close own.ind
2017-01-23     120.08      NA
2017-01-23         NA       1
2017-01-24     119.97      NA
2017-01-24         NA       2
2017-01-25     121.88      NA
2017-01-25         NA       3

因此，您要么需要将dateFormat 参数指定给as.xts，要么直接使用xts 构造函数和as.Date。

# use dateFormat
own.ind <- as.matrix(c(1,2,3), ncol=1, nrow=3)
rownames(own.ind) <- c("2017-01-23", "2017-01-24", "2017-01-25")
own.ind <- as.xts(own.ind, dateFormat = "Date")
merge(Cl(AAPL), own.ind)
#            AAPL.Close own.ind
# 2017-01-23     120.08       1
# 2017-01-24     119.97       2
# 2017-01-25     121.88       3

# use xts constructor and as.Date
own.ind <- xts(1:3, as.Date(c("2017-01-23", "2017-01-24", "2017-01-25")))
merge(Cl(AAPL), own.ind)
#            AAPL.Close own.ind
# 2017-01-23     120.08       1
# 2017-01-24     119.97       2
# 2017-01-25     121.88       3

现在您可以使用 addTA 而无需像其他答案所说的那样创建函数。

chartSeries(AAPL, TA="addTA(own.ind)")

Answer 2

Joe，您必须创建一个函数来将系列添加为指标。如您的示例中那样创建一个每个交易日增加 1 的指标，请执行以下操作：

myInd <- function(x) {
  x <- 1:NROW(x)
  return(x)
}

创建新指标：

addMyInd <- newTA(FUN = myInd, legend = "MyInd")

查看class:

> class(addMyInd)
[1] “function”

现在让我们在价格图表下方绘制新指标：

getSymbols("AAPL", from = "2017-01-23", to = "2017-01-25")
chartSeries(AAPL,TA=NULL)
addMyInd()