从一个例子开始:
x.Date <- as.Date(paste(rep(2003:2004, each = 12), rep(1:12, 2), 1, sep = "-"))
x <- zoo(rnorm(24), x.Date)
plot(x)
如果我们想要不同的刻度位置,我们可以抑制默认的轴绘图并添加我们自己的:
plot(x, xaxt = "n")
axis(1, at = time(x), labels = FALSE)
或者将它们组合起来:
plot(x)
axis(1, at = time(x), labels = FALSE)
您需要指定刻度的位置,因此如果您想要每月、每周等值(而不是上面的观察时间),您将需要自己创建相关位置(日期):
## weekly ticks
plot(x)
times <- time(x)
ticks <- seq(times[1], times[length(times)], by = "weeks")
axis(1, at = ticks, labels = FALSE, tcl = -0.3)
See ?axis.Date
欲了解更多详细信息,加上?plot.zoo
有很多此类事情的例子。