将垂直线添加到绘图时，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)

发生的事情是，当我运行前四行代码到最后一行时，一切正常，并且绘图看起来完全符合我的期望。尽管如此，在运行最后一行代码后，仍然会发生魔术，并且背景垂直线（无明显原因）会在两端被割断。这是运行最后一行代码之前和之后的两个图：

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