r - 向 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 创建的对象实际上是类(class) 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  )