r - 微调 addADX() 以避免截断趋势曲线

Question

我正在使用以下代码查看过去 9 个月的股票。

library(quantmod)
getSymbols("AMZN")
candleChart(to.weekly(AMZN),multi.col=TRUE,theme="white",subset='last 9 months') 
addADX()

您可以看到，红线基本上没有包含在图中，因为它大多位于 20 的值以下。我想修改 Y 轴范围addADX，使其始终显示所有三条线。怎么可能？

Answer 1

的输入参数addADX()只控制方向运动指标的计算 - 而不是根据平均方向指标设置的图形参数。

完全显示正负方向指数的一个简单解决方法是使用包自己计算方向运动指数ADX()，TTR然后使用 将其添加到上一个图表中addTA()，这样可以进行更多自定义。

library(quantmod)
getSymbols("AMZN")
dat <- to.weekly(AMZN)
candleChart(dat, multi.col = TRUE, theme = "white", subset = "last 9 months")
adx <- ADX(HLC(dat), n = 14, maType = "EMA", wilder = TRUE)[, c("DIp", "DIn", "ADX")]
addTA(adx, col = c("green", "red", "blue"), lwd = c(1, 1, 2), legend = NULL)