L'aggiunta di punti di trama XTS

Question

aggiunta di punti, leggende e di testo per trame utilizzando XTS oggetti avrebbe la risposta a questa domanda, ma a quanto pare non ...

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  )

Questo sembra essere fuori dritto del libro di testo. ?plot.zoo non contiene esempi con point() però.

Answer 1

Per impostazione predefinita gli oggetti creati da quantmod::getSymbols sono infatti di classe xts. Questo significa che il big.red.dot dovrebbe essere un oggetto xts:

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