У меня действительно странная проблема при попытке добавить вертикальные линии к существующему графику объекта xts.Следующий код должен позволить вам воспроизвести мою проблему.
require(xts)
data("sample_matrix")
test <- xts(coredata(sample_matrix)[,1], order.by = as.Date(index(sample_matrix)))
plot.xts(test)
addEventLines(events = xts(x = '', order.by = as.Date('1970-04-01')), lty = 2, col = 'red', lwd = 1.5)
Что происходит, когда я запускаю код первых четырех строк до последней строки, все работает нормально, и график выглядит точно так, как я хочубыть.Тем не менее, после выполнения последней строки кода происходит волшебство, и вертикальные линии фона без видимой причины обрезаются с обоих концов.Вот два графика до и после выполнения последней строки кода:
Может кто-нибудь помочь мне решить эту проблему?