Ajout de points à XTS terrain

Question

Je pensais que Ajout de points, légendes et texte à parcelles en utilisant des objets XTS aurait la réponse à cette question, mais apparemment pas ...

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  )

Celui-ci semble être tout droit sorti du manuel. ?plot.zoo ne contient pas d'exemples avec point() bien.

Answer 1

Par défaut, les objets créés par quantmod::getSymbols sont en fait des xts de classe. Cela signifie que votre big.red.dot doit être un objet xts:

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