Вместо использования addRSI
, который по какой-то причине имеет фиксированный диапазон, основанный на значениях, вы можете использовать addTA
и опцию yrange
.
Использование quantmod:
library(quantmod)
goog <- getSymbols("GOOGL", from = "2019-01-01", auto.assign = F)
rsi <- RSI(goog$GOOGL.Close)
chartSeries(goog, TA = NULL)
addTA(rsi, yrange = c(0, 100))
Или функция chart_Series в Quantmod.Это добавляет rsi в диапазоне 0-100, но не показывает эти метки, только метки в 70 и 30.
chart_Series(goog)
add_RSI()
Использование rtsplot (код прямо из справки): показывает диапазон rsiот 0 до 100 с шагом 20 и выделяет полосы 0-30 и 70-100.
library(rtsplot)
layout(c(1,1,1,2))
rtsplot(goog, type = "candle")
rtsplot(rsi, type = 'l', ylim=c(0,100),
y.highlight = c(c(0,30), c(70,100)),
y.highlight.col = grDevices::adjustcolor(c('green','red'), 50/255)
)