Определите интересующий бар на графике OHLC на самом графике

Question

У меня есть расчеты, которые определяют местоположение бара событий; мой результат расчета - это номер бара в моем временном ряду или его индекс (я могу работать с любым из них). У меня проблема в том, что, когда у меня более 50 баров на графике, мне приходится считать бары, чтобы определить интересующий бар.

Есть ли способ поставить какой-то "индикатор" на самом графике для баров интереса на основе моих расчетов?
Скажем, моя программа указала, что полоса 3 является полосой интереса Существуют ли какие-либо приемы, которые помогли бы графически идентифицировать этот столбец на графике с помощью стрелки или точки или чего-либо еще, чтобы избежать необходимости считать столбцы. Я понимаю, что время обычно находится на осях х, но когда на графике много баров, вы не можете прочитать время и дату вне графика, и даже если вам трудно убедиться, что они выровнены правильно.

Я предоставил данные OHLC AAPL для 5-минутных баров ниже как dput(): хотел бы иметь возможность указать R ", когда вы отображаете мои данные, пожалуйста, укажите столбец № 3 на графике" Я обычно использую chartSeries() пакета quantmod создавать свои графики, но я открыт для использования других функций.

dput(AAPL)
structure(c(266, 265.95, 265.93, 265.89, 265.91, 266, 266, 265.96, 
265.97, 265.98, 265.93, 265.9, 265.84, 265.86, 265.8625, 265.97, 
265.96, 265.89, 265.875, 265.98), .Dim = c(5L, 4L), .Dimnames = list(
NULL, c("Open", "High", "Low", "Close")), index = structure(c(1299962039, 
1299962098, 1299962157, 1299962219, 1299962278), tzone = "", tclass = c("POSIXct", 
"POSIXt")), tclass = c("POSIXct", "POSIXt"), tzone = "", .indexCLASS = c("POSIXct", 
"POSIXt"), .indexTZ = "", class = c("xts", "zoo"))

chartSeries(AAPL) would create an OHLC bar chart with 5 bars.

Answer 1

AAPL <- structure(c(266, 265.95, 265.93, 265.89, 265.91, 266, 266, 265.96, 
265.97, 265.98, 265.93, 265.9, 265.84, 265.86, 265.8625, 265.97, 
265.96, 265.89, 265.875, 265.98), .Dim = c(5L, 4L),
.Dimnames = list(NULL, c("Open", "High", "Low", "Close")),
index = structure(c(1299962039, 1299962098, 1299962157, 1299962219, 1299962278),
  tzone = "", tclass = c("POSIXct", "POSIXt")),
tclass = c("POSIXct", "POSIXt"), tzone = "",
.indexCLASS = c("POSIXct", "POSIXt"), .indexTZ = "", class = c("xts", "zoo"))
chartSeries(AAPL)
addLines(v=3)
addPoints(3, Cl(AAPL)[3])