Изменение оси на графике временных рядов

Question

Я сделал временной ряд из следующего фрейма данных.

     Year    Month Demand
1 2010  January   48.5
2 2010 February   46.0
3 2010    March   54.4
4 2010    April   49.8
5 2010      May   48.1
6 2010     June   55.0

Я использую следующее для создания объекта ts:

   ts.Monthly.Demand=Monthly.Demand%>%
  select(Demand)%>%
  ts(start=2010,frequency=12)

Я использую следующее для построения графика:

ts.Monthly.Demand%>%
  autoplot()

Как добавить месяц к оси X?

Answer 1

Поскольку autoplot возвращает объект ggplot, вы можете добавить к нему дополнительные функции ggplot, как в любом другом рабочем процессе ggplot.Это включает в себя настройку масштаба, например, с scale_x_date и предоставление перерывов на даты, как вам нравится.Пара вариантов форматирования date_labels:

library(tidyverse)
library(ggfortify)

ts1 <- df %>%
  select(Demand) %>%
  ts(start = 2010, frequency = 12)

autoplot(ts1) + scale_x_date(date_labels = "%m-%Y")

autoplot(ts1) + scale_x_date(date_labels = "%B %Y")

autoplot(ts1) + scale_x_date(date_labels = "%b '%y")

Создано в 2018-06-13 пакетом Представ (v0.2.0).

Answer 2

Преобразовать в зоопарк и использовать scale_x_yearmon

library(zoo)

z.Monthly.Demand <- as.zoo(ts.Monthly.Demand)
autoplot(z.Monthly.Demand) + scale_x_yearmon() + xlab("")

, давая:

или используя классическую графику:

plot(z.Monthly.Demand)