r - 两屏动物园图上的 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. 使用参数非常容易自定义您的 x 轴scales。

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