r - 向绘图添加垂直线时 plot.xts 的奇怪行为

Question

尝试将垂直线添加到 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)

发生的情况是，当我将前四行代码运行到最后一行时，一切正常，并且情节看起来完全符合我的意愿。尽管如此，在运行最后一行代码之后，魔术发生了，背景垂直线无缘无故地在两端被切断。这是运行最后一行代码之前和之后的两个图：

有人可以帮我解决这个问题吗？

标签： rplotxts