0

我有一个 xts/zoo 对象 ESZ1:

> class(ESZ1) 
[1] "xts" "zoo"

> class(time(ESZ1))
[1] "POSIXt"  "POSIXct"

> colnames(ESZ1)
[1] "ESZ1.Open"    "ESZ1.High"    "ESZ1.Low"     "ESZ1.Close"   "ESZ1.Volume"  "ESZ1.WAP"     "ESZ1.hasGaps" "ESZ1.Count"  

我想使用 quantmod 包中的 chartSeries 函数来绘制它。但是,我收到以下错误:

> chartSeries(ESZ1)
Error in if (on == "years") { : missing value where TRUE/FALSE needed

任何关于问题可能是什么的想法将不胜感激。

附加问题:是否有任何文档说明如何调整 chartSeries() 的轴/边距?目前,我的 y 轴标签在图的右侧边缘被部分切断。我试过使用

mar = ...

在 chartSeries 的参数列表中,但这并没有改变结果图。

4

2 回答 2

3

问题在于 chartSeries,特别是 axTicksByTime 调用。我会添加一个补丁来解决这个问题,但现在你可以这样做:

chartSeries(ESZ1, major.ticks="minutes")

默认情况下,major.ticks="auto"似乎在自动程序中过早地失败,无法得到正确的答案。

于 2011-11-02T17:29:58.840 回答
2

您没有提供有关您的ESZ1对象的足够信息,但我可以通过尝试绘制 2 分钟或更短的数据来重现该错误。您的列名看起来像是来自 IBrokers 的东西,所以...

> library(IBrokers)
> library(quantmod)
> ibg <- ibgConnect()
> fut <- twsFUT('ES', 'GLOBEX', '201112')
> ESZ1 <- reqHistoricalData(ibg, fut, barSize='1 secs', duration='120 S')
TWS Message: 2 -1 2104 Market data farm connection is OK:usfuture 
TWS Message: 2 -1 2106 HMDS data farm connection is OK:ushmds2a 
waiting for TWS reply on ES .... done.
> chartSeries(ESZ1)
Error in if (on == "years") { : missing value where TRUE/FALSE needed

如果您使用超过 2 分钟的数据,它会起作用。

> ESZ1 <- reqHistoricalData(ibg, fut, barSize='1 secs', duration='121 S')
waiting for TWS reply on ES .... done.
> chartSeries(ESZ1)

> indexClass(ESZ1)
[1] "POSIXct" "POSIXt" 
> colnames(ESZ1)
[1] "ESZ1.Open"    "ESZ1.High"    "ESZ1.Low"     "ESZ1.Close"   "ESZ1.Volume" 
[6] "ESZ1.WAP"     "ESZ1.hasGaps" "ESZ1.Count"  
于 2011-11-02T03:16:21.990 回答