在quantmod圖表中添加背景中的垂直線

Question

如何在背景中出現的quantmod中向圖表添加垂直線？ 考慮這個例子：

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

結果如下：

雖然我現在有背景線，但它們超寬而且非常突兀。 我只是想在背景中以與網格線已經存在相同的方式。 我怎樣才能做到這一點？

注意：這個問題類似於現有問題，但我在這里詢問如何在背景中渲染垂直線。

Answer 1

我沒有看源代碼來理解為什么會這樣，但它似乎做你想要的。 基本上，您通過TA參數將addLines調用添加到chartSeries 。 這通常是一件好事，因為它避免了為每個add*調用重新繪制圖表。

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