使用 quantmod chartSeries 在 R 中绘制日内 OHLC 数据时出现问题

Question

我有一个 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的参数列表中，但这并没有改变结果图。

Answer 1

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

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

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

Answer 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"