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 a xts 物体：

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