使用ggplot2和tsibble更改标签和分隔符

Question

既然我们不能在{tsibble}对象中使用scale_x_date()，那么改变断点、标签等的方法是什么呢？

# 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变量不属于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")

​

​