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

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()

​

​

Answer 2

问题是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)")

​

​