Добавить вертикальную линию в фоновом режиме в диаграмме квантования

Question

Как добавить вертикальную линию к диаграмме в методе квантов, которая появляется в фоновом режиме? Рассмотрим следующий пример:

library(quantmod) 
symbol <- "AAPL" 
cache <- new.env() 
getSymbols(symbol, env=cache) 
chartSeries(cache$AAPL, subset="last 3 months") 
plot(addLines(v=10)) # Adds vertical line at tick 10. 

Проблема заключается в том, что добавление вертикальную линию на клеща 10 Теперь скрывает фитили от светильника:

Я также попытался функцию addVLine от qmao. Это эффективно делает это:

c <- quantmod:::get.current.chob() 
i <- index(c@xdata[endpoints(c@xdata, "months")]) 
plot(addTA(xts(rep(TRUE, length(i)), i), on=-1, col="grey")) 

Результат выглядит следующим образом:

Хотя у меня есть строки в фоновом режиме в настоящее время, они очень широко и довольно навязчиво. Я просто хочу, чтобы они были на заднем плане так же, как и линии сетки. Как я могу это достичь?

Примечание: этот вопрос напоминает an existing one, но здесь я спрашиваю о том, как сделать вертикальную линию в фоновом режиме.

Answer 1

Я не смотрел исходный код, чтобы понять, почему это работает, но, похоже, делает то, что вы хотите. В основном, вы добавляете вызов addLines через аргумент TA в chartSeries. В любом случае, это вообще хорошо, так как он избегает перерисовывания диаграммы для каждого вызова add*.

chartSeries(cache$AAPL, subset="last 3 months", TA="addVo();addLines(v=10,on=-1)")