2011-09-05 65 views
4

我想Adding Points, Legends and Text to plots using xts objects将有这个问题的答案,但显然不是...加分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()的任何示例。

+0

@Joshua乌尔里希感谢您纠正称号。标题编辑顺序清楚地表明,如果最后一个存在,我不理解'plot.zoo','plot.xts'和''quantmod' plot“之间的区别。你能指点我一个参考吗? – isomorphismes

+1

@Lau Tzu:'plot'是一个通用函数。 'plot.zoo'和'plot.xts'是动物园和xts类对象的简单方法。参见'?plot.zoo'和'?plot.xts'来获取每个函数的描述。 quantmod具有'chartSeries'绘图功能。 –

+0

@isomorphismes我应该看看'Methods(plot)'以及了解'plot'(通用函数)的工作原理。另外http://adv-r.had.co.nz/OO-essentials.html#s3 – isomorphismes

回答

8

默认情况下,由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 ) 

enter image description here

+0

谢谢!答案非常明显,我并不感到惊讶。 – isomorphismes