r - 文本未出现在 XTS 图上

Question

我在使用 xts 将一些文本添加到 R 中的时间序列数据图中时遇到问题。我已经制作了一个简单的问题示例。

我的 text() 命令似乎什么都不做，而我可以在图中添加一个点。我试图通过尽可能使用默认值来保持代码简单

require(quantmod)

# fetch the data and plot it using default options
getSymbols('MKS.L')
plot(MKS.L$MKS.L.Close)

# try to add text - doesn't appear
text(as.Date('2012-01-01'),y=500,"wobble", cex=4)

# add a point - this does appear
testPos <- xts(600, as.Date('2012-01-01'))
points( testPos, pch = 3, cex = 4, col = "red" )

任何帮助表示赞赏 - 我是 R 的新手，我已经花了几个小时在这上面!

Answer 1

不是直接回答，而是xts包自带的plot.xts函数没有完全开发。

最好使用 xtsExtra 中的 plot.zoo 或 plot.xts包(这是作为 Google Summer of Code 项目编写的，目的是将其整合到 xts 包中)

这些都可以:

plot(as.zoo(MKS.L$MKS.L.Close))
text(as.Date('2012-01-01'),y=500,"wobble", cex=4)

#install.packages("xtsExtra", repos="http://r-forge.r-project.org")
xtsExtra::plot.xts(MKS.L$MKS.L.Close)
text(as.Date('2012-01-01'),y=500,"wobble", cex=4)