Тенденции и сезонные изменения
Число авиапассажиров в 1949-1960 годы стабильно увеличивалось, но также варьировалась в зависимости от времени года. Воспользуемся функцией MovingMap и опцией Total, чтобы визуализировать ежегодный рост количества авиапассажиров. Воспользуемся DateHistogram для изучения ежемесячных данных и сезонных изменений в количестве авиапассажиров.
Ежемесячное количество международных авиапассажиров в годы 1949 по 1960 доступно через ресурс ExampleData.
![Click for copyable input](assets.ru/trends-and-seasonalities/In_56.png)
data = ExampleData[{"Statistics", "InternationalAirlinePassengers"},
"TimeSeries"]
![](assets.ru/trends-and-seasonalities/O_31.png)
Эти данные показывает как долгосрочную тенденцию к росту, так и сезонные колебания в количестве авиапассажиров.
![Click for copyable input](assets.ru/trends-and-seasonalities/In_57.png)
DateListPlot[data, PlotTheme -> "Detailed"]
![](assets.ru/trends-and-seasonalities/O_32.png)
Глобальная тенденция роста наиболее очевидна в результатах, агрегированных на последний день каждого года (см. график).
![Click for copyable input](assets.ru/trends-and-seasonalities/In_58.png)
positionspec = {{1949, 12, 31}, {1960, 12, 31}, Quantity[1, "Year"]};
![Click for copyable input](assets.ru/trends-and-seasonalities/In_59.png)
mm = MovingMap[Total,
data, {Quantity[1, "Years"], Right, positionspec}];
![Click for copyable input](assets.ru/trends-and-seasonalities/In_60.png)
DateListPlot[mm, PlotMarkers -> Automatic,
GridLines -> {mm["Dates"], None}]
![](assets.ru/trends-and-seasonalities/O_33.png)
Теперь проанализируем сезонные изменения в количестве авиапассажиров. Для этого создадим взвешенные данные WeightedData, где количество авиапассажиров будет использоваться в качестве весового коеффициента.
![Click for copyable input](assets.ru/trends-and-seasonalities/In_61.png)
wd = WeightedData[data["Dates"], data["Values"]];
DateHistogram агрегирует весовой коеффициент для данных для каждого месяца в течение зданных лет по функции DateReduction.
![Click for copyable input](assets.ru/trends-and-seasonalities/In_62.png)
DateHistogram[wd, "Month", DateReduction -> "Year"]
![](assets.ru/trends-and-seasonalities/O_34.png)