r - 如何在 R 中使用 abline() 绘制简单的垂直线？

Question

我无法在图表中添加垂直线或水平线。我觉得我错过了一些非常简单的东西，但我似乎找不到它。我已经从互联网上复制了一些示例，但它不起作用。我做错了什么？

这就是我正在尝试的:

library(quantmod)
getSymbols("^FTSE", src="yahoo", from=as.Date('2004-01-01'), 
           to=as.Date('2013-01-01'), periodicity="weekly")

plot(FTSE$FTSE.Close)
abline(v='2008-01-01', col="red")

我也试过:

abline(h = 5000, col="red")和abline(h = mean(FTSE$FTSE.Close), col="red")

但它们也不起作用。没有显示任何行。

我只想要一条垂直线。我正在使用 RStudio。

Answer 1

或者，我们将不得不使用 xts::addEventLines .

实际上有一个 issue opened at github 2015 年 2 月 abline根本无法使用新的 plot.xts我们应该使用替代方案。

library(quantmod)
getSymbols("^FTSE", src="yahoo", from=as.Date('2004-01-01'), 
           to=as.Date('2013-01-01'), periodicity="weekly")

plot(FTSE$FTSE.Close)
# abline(v='2008-01-01', col="red")  # won't work

# alternative
events <- xts("", as.Date("2008-01-01"))
addEventLines(events, col="red", lwd=2)

结果

注意:也可以定义多个事件行，例如events <- xts(letters[1:3], as.Date(c("2008-01-01", "2009-01-01", "2010-01-01")))
.