使用 ggplot2 和 tsibble 更改标签和中断

Question

由于我们不能将 scale_x_date() 与 {tsibble} 对象一起使用，更改中断、标签等的方法是什么？

# metapackage
library(fpp3)

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

# plot
autoplot(melsyd_economy, Passengers) +
  labs(title = "Ansett airlines economy class",
       subtitle = "Melbourne-Sydney",
       y = "Passengers ('000)") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 year")

Answer 1

问题不在于 tsibble，问题在于您的 Week 变量不属于 class Date。但是您可以将其转换为 Date 以使 scale_x_date 起作用：

# metapackage
library(fpp3)

# data
melsyd_economy <- ansett %>%
  filter(Airports == "MEL-SYD", Class == "Economy") %>%
  mutate(Passengers = Passengers/1000) %>% 
  mutate(Week = lubridate::as_date(Week))

# plot
autoplot(melsyd_economy, Passengers) +
  labs(title = "Ansett airlines economy class",
       subtitle = "Melbourne-Sydney",
       y = "Passengers ('000)") +
  scale_x_date(date_labels = "%Y", date_breaks = "2 year")

使用 ggplot2 和 tsibble 更改标签和中断

Changing labels and breaks with ggplot2 and tsibble

r

ggplot2

tsibble