使用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"