r - 为 fpp3 autoplot() 调整 x 轴上的日期

Question

来自本书网站的快速表述：

melsyd_economy <- ansett %>%
  filter(Airports == "MEL-SYD", Class == "Economy") %>%
  mutate(Passengers = Passengers/1000)
autoplot(melsyd_economy, Passengers) +
  labs(title = "Ansett airlines economy class",
       subtitle = "Melbourne-Sydney",
       y = "Passengers ('000)")

请注意，x 轴具有基于周索引的异常格式。我想做的是对此进行调整，例如仅显示年份（1989、1990、1991 等）

标签： rggplot2forecastingfable-rtsibble

Answer 1

tibble 中的Week列是yearweek类。

R> class(melsyd_economy$Week)
[1] "yearweek"   "vctrs_vctr"

您可以使用scale_x_yearweekfrom tsibblepackage（包含在 中fpp3）autoplot和设计您想要的 x 轴标签。这是一个只有一年的例子：

library(fpp3)

melsyd_economy <- ansett %>%
  filter(Airports == "MEL-SYD", Class == "Economy") %>%
  mutate(Passengers = Passengers/1000)

autoplot(melsyd_economy, Passengers) +
  labs(title = "Ansett airlines economy class",
       subtitle = "Melbourne-Sydney",
       y = "Passengers ('000)",
       x = "Year") +
  scale_x_yearweek(date_labels = "%Y")

阴谋