r - 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  )