Тенденции и сезонные изменения
Число авиапассажиров в 1949-1960 годы стабильно увеличивалось, но также варьировалась в зависимости от времени года. Воспользуемся функцией MovingMap и опцией Total, чтобы визуализировать ежегодный рост количества авиапассажиров. Воспользуемся DateHistogram для изучения ежемесячных данных и сезонных изменений в количестве авиапассажиров.
Ежемесячное количество международных авиапассажиров в годы 1949 по 1960 доступно через ресурс ExampleData.
data = ExampleData[{"Statistics", "InternationalAirlinePassengers"},
"TimeSeries"]
Эти данные показывает как долгосрочную тенденцию к росту, так и сезонные колебания в количестве авиапассажиров.
DateListPlot[data, PlotTheme -> "Detailed"]
Глобальная тенденция роста наиболее очевидна в результатах, агрегированных на последний день каждого года (см. график).
positionspec = {{1949, 12, 31}, {1960, 12, 31}, Quantity[1, "Year"]};
mm = MovingMap[Total,
data, {Quantity[1, "Years"], Right, positionspec}];
DateListPlot[mm, PlotMarkers -> Automatic,
GridLines -> {mm["Dates"], None}]
Теперь проанализируем сезонные изменения в количестве авиапассажиров. Для этого создадим взвешенные данные WeightedData, где количество авиапассажиров будет использоваться в качестве весового коеффициента.
wd = WeightedData[data["Dates"], data["Values"]];DateHistogram агрегирует весовой коеффициент для данных для каждого месяца в течение зданных лет по функции DateReduction.
DateHistogram[wd, "Month", DateReduction -> "Year"]
