双屏动物园图上的X轴

Question

这次我正在努力调整双屏动物园情节中的X轴。 这是一个例子，灵感来自之前的帖子：

x.Date <- as.Date(paste(rep(2003:2004, each = 12), rep(1:12, 2), 1, sep = "-"))
x <- zoo(data.frame(rnorm(24), rnorm(24)), x.Date)

然后当我绘制没有X轴并单独添加轴时

plot(x, xaxt = "n")
axis(1, at = time(x), labels = FALSE)

没有任何反应（也有更复杂的轴版本，例如标签）...... 我做错了什么？

非常感谢

贝努瓦

Answer 1

一个想法是使用xyplot.zoo plot.zoo的点阵版本。使用scales参数非常容易自定义x轴。

 library(lattice)
 xyplot(x, 
   scales=list(
     x=list(  at=time(x),
              format='%y-%m')
   ))