微调 addADX() 以避免截断趋势曲线
Fine tuning addADX() to avoind truncating the trend curves
我正在使用以下代码查看过去 9 个月的股票。
library(quantmod)
getSymbols("AMZN")
candleChart(to.weekly(AMZN),multi.col=TRUE,theme="white",subset='last 9 months')
addADX()
你可以看到红线基本上没有包含在图中,因为它大部分位于值 20 以下。我想修改 addADX
的 Y 轴范围,以便它始终显示所有三个线。怎么可能?
addADX()
的输入参数只控制方向运动指数的计算-而不是根据平均方向指数设置的图形参数。
完整显示正负方向指数的简单解决方法是使用 TTR
包中的 ADX()
自行计算方向运动指数,然后使用 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)
我正在使用以下代码查看过去 9 个月的股票。
library(quantmod)
getSymbols("AMZN")
candleChart(to.weekly(AMZN),multi.col=TRUE,theme="white",subset='last 9 months')
addADX()
你可以看到红线基本上没有包含在图中,因为它大部分位于值 20 以下。我想修改 addADX
的 Y 轴范围,以便它始终显示所有三个线。怎么可能?
addADX()
的输入参数只控制方向运动指数的计算-而不是根据平均方向指数设置的图形参数。
完整显示正负方向指数的简单解决方法是使用 TTR
包中的 ADX()
自行计算方向运动指数,然后使用 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)