在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()的例子。

- isomorphismes

---

@Joshua Ulrich 感谢您纠正标题（并编写软件包！）。 标题编辑的顺序清楚地表明我不理解 plot.zoo，plot.xts 和“quantmod plot”之间的区别，如果最后一个存在的话。 请问您能否指向一个参考资料？ - isomorphismes

@Lau Tzu: plot是一个通用函数。plot.zoo和plot.xts只是针对zoo和xts类对象的方法。请参阅?plot.zoo和?plot.xts以获取每个相应函数的描述。quantmod具有chartSeries绘图函数。 - Joshua Ulrich

@isomorphismes 我应该也看一下 Methods(plot) 来理解 plot（通用的）是如何工作的。另外，http://adv-r.had.co.nz/OO-essentials.html#s3 - isomorphismes

Answer 1

默认情况下，quantmod::getSymbols 创建的对象实际上是 xts 类型。这意味着你的 big.red.dot 应该是一个 xts 对象：

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

- Andrie

---

谢谢！我并不感到惊讶，答案如此明显。 - isomorphismes