如何更改 plot.zoo plot 中的（数量）x 轴刻度？ （轴（）失败）

Question

以下时间序列 plot 和plot.zoo()显示了奇怪数量的（只有一个）x 轴刻度。 如何说服plot.zoo()显示更多的 x 轴刻度？

## Create a dummy time series
library(xts)
start <- as.Date("2020-04-01")
end <- as.Date("2021-06-02")
dat <- seq(start, end, length.out = 226)
set.seed(271)
ts <- xts((1:226) + rnorm(226, sd = 1/3), order.by = dat)
plot.zoo(ts) # => only one x-axis tick displayed

我尝试了通常的方法来更改 x 轴，但由于某种原因 (?) axis()在这里不受尊重：

## Trial
plot.zoo(ts, xaxt = "n")
ticks <- axTicksByTime(index(ts))
labels <- names(ticks)
axis(1, at = ticks, labels = labels) # => no x-axis ticks displayed

如果您需要更多详细信息，请告诉我。

Answer 1

这是基于标准plot()的版本：

plot(as.numeric(ts), type = "l", xaxt = "n")
ticks <- axTicksByTime(index(ts), format.labels = "%Y-%m-%d")
labels <- names(ticks)
axis(1, at = ticks, labels = labels)

还有一个更好的：

plot(as.numeric(ts), type = "l", xaxt = "n", xlab = "", ylab = "ts")
ticks <- axTicksByTime(index(ts), format.labels = "%Y-%m")
labels <- names(ticks)
axis(1, at = ticks, labels = labels, las = 2)

Answer 2

问题中的代码有几个问题：

• 问题中的代码调用plot.zoo直接调用 zoo 方法。 一般来说，代码应该调用泛型并让它分派方法，而不是直接调用方法。 （必须直接调用该方法的主要情况是泛型出现在当前未加载的不同 package 中；但是， plot不是这种情况，因为它是基础 ZE1E1D3D40573127E9DAF1283 的一部分。）

• ?axTicksByTime说这个 function 是为内部使用而编写的

• 如果您仍然想使用axTicksByTime ，请注意它将索引返回到时间向量而不是时间本身。 这就是为什么当问题使用axis命令时什么都没有出现。

如果您仍然想使用axTicksByTime并将其与plot的 zoo 方法一起使用，那么可以这样做。

plot(as.zoo(ts), xaxt = "n")
ticks <- axTicksByTime(ts, format = "%Y %m")
labels <- names(ticks)
axis(1, at = time(ts)[ticks], labels = labels)