hchart(AirPassengers, name = "AirPassengers") |>
hc_title(text = "<b>Cifras mensuales de pasajeros de líneas aéreas 1949-1960</b>") |>
hc_subtitle(text = "<i>Dataset AirPassengers de R</i>") |>
hc_credits(enabled = TRUE, text = "http://elartedeldato.com")
Series Temporales
Cómo visualizar series temporales en highcharter
Un apartado fundamental dentro de los datos numéricos son las series temporales. Las series temporales indican la evolución en el tiempo de algún fenómeno. generalmente, se representan con gráficos de líneas y su predicción o forecast en un gráfico de rango de área.
Para mostrar cómo hacer un gráfico de series temporales con highcharter utilizaremos el dataset AirPassengers
de R.
Descomposición de series temporales
<- stl(log(AirPassengers), s.window = "periodic")
x
hchart(x) |>
hc_title(text = "<b>Descomposición de cifras mensuales de pasajeros de líneas aéreas 1949-1960</b>") |>
hc_subtitle(text = "<i>Dataset AirPassengers de R</i>") |>
hc_credits(enabled = TRUE, text = "http://elartedeldato.com")
Cómo visualizar predicciones
library(forecast)
<- forecast(ets(AirPassengers), level = 95)
x
hchart(x) |>
hc_title(text = "<b>Forecast de las cifras mensuales de pasajeros de líneas aéreas 1949-1960</b>") |>
hc_subtitle(text = "<i>Dataset AirPassengers de R</i>") |>
hc_credits(enabled = TRUE, text = "http://elartedeldato.com")
Autocovarianza y autocorrelación
<- acf(diff(AirPassengers), plot = FALSE)
x
hchart(x) |>
hc_colors("#206999") |>
hc_title(text = "<b>ACF de las cifras mensuales de pasajeros de líneas aéreas 1949-1960</b>") |>
hc_subtitle(text = "<i>Dataset AirPassengers de R</i>") |>
hc_credits(enabled = TRUE, text = "http://elartedeldato.com")
Cómo representar series temporales multivariantes
Para este ejemplo utilizaremos las series temporales mdeaths
y fdeaths
que recogen las muertes mensuales por bronquitis, enfisema y asma en el Reino Unido, 1974-1979 de varones (mdeaths) y mujeres (fdeaths).
<- cbind(mdeaths, fdeaths)
x
hchart(x) |>
hc_title(text = "<b>Cifras mensuales de pasajeros de líneas aéreas 1949-1960</b>") |>
hc_subtitle(text = "<i>Dataset AirPassengers de R</i>") |>
hc_credits(enabled = TRUE, text = "http://elartedeldato.com")