Hinzufügen von Punkten zum XTS -Diagramm

Question

ich dachte Hinzufügen von Punkten, Legenden und Text in Diagramme mit XTS -Objekten hätte die Antwort auf diese Frage, aber anscheinend nicht ...

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  )

Dieser scheint direkt aus dem Lehrbuch zu sein. ?plot.zoo enthält keine Beispiele mit point() obwohl.

Answer 1

Standardmäßig die von den von erstellten Objekten von quantmod::getSymbols sind in der Tat der Klasse xts. Das bedeutet dein big.red.dot sollte a sein xts Objekt:

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