添加点到xts图

Question

我认为使用xts对象添加点,图例和文本可以得到这个问题的答案,但显然不是......

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  )