Agregar puntos a la trama XTS

Question

Pensé Agregar puntos, leyendas y texto a gráficos usando objetos XTS tendría la respuesta a esta pregunta, pero aparentemente no ...

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  )

Este parece estar directamente del libro de texto. ?plot.zoo no contiene ejemplos con point() aunque.

Answer 1

Por defecto, los objetos creados por quantmod::getSymbols son de hecho de clase xts. Esto significa tu big.red.dot debería ser un xts objeto:

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