如何在plot.xts中增加绘图之间的边距？

Question

我与plot.xts有一些标签重叠。例如，请参见下面的圆圈区域：

如何增加边距以避免这种情况？下面是一个可重复性最小的示例（请参阅整个脚本的原始帖子）。我最感兴趣的是生成的PNG文件，因为我将其用于自动化。

library(xts, warn.conflicts=FALSE)
library(xtsExtra, warn.conflicts=FALSE)

timezone = "UTC"
Sys.setenv(TZ=timezone)

sampleData =
"Time (CDT),CPU,Runqueue,Blocked,MemoryFree,PageIns,ContextSwitches,Wait,Steal
2014-10-15 16:12:11,20,0,0,12222172,0,2549,0,0
2014-10-15 16:12:12,27,1,0,12220732,0,3619,0,0
2014-10-15 16:12:13,30,0,0,12220212,0,2316,0,0"
data = as.xts(read.zoo(text=sampleData, format="%Y-%m-%d %H:%M:%S",
 header=TRUE, sep=",", tz=timezone))

png("TITLE.png", width=800, height=600)
plot.xts(data, main=paste("TITLE", " (", timezone, ")", sep=""),
  minor.ticks=FALSE, yax.loc="left", auto.grid=TRUE, nc=2,
  cex.lab=1.3, cex.axis=1.3, cex.main=1.3, cex.sub=1.3)
dev.off()

Answer 1

您是否尝试过plot.zoo(data, nc=2, yax.flip=TRUE)？

需要注意的另一点是，您似乎使用旧版xtsExtra :: plot.xts的语法。自2014年7月初以来，xtsExtra :: plot.xts进行了一些更改，以提高灵活性并添加功能作为xts对象的绘图引擎。