添加点到xts图

Question

我认为Adding Points, Legends and Text to plots using xts objects会得到这个问题的答案，但显然不是......

require(quantmod)
getSymbols("SAM")
big.red.dot <- zoo(85, as.Date("2011-05-05"))
plot(SAM['2011'])
points(  big.red.dot, col="red", pch=19, cex=5  )

这个似乎直接来自教科书。 ?plot.zoo不包含point()的任何示例。

Answer 1

默认情况下，quantmod::getSymbols创建的对象实际上属于类xts。这意味着您的big.red.dot应该是xts对象：

big.red.dot <- xts(85, as.Date("2011-05-05"))
plot(SAM['2011'])
points(  big.red.dot, col="red", pch=19, cex=5  )