Veo
Welcome to every time series for the next few years of your career. pic.twitter.com/fAgTa0ue3f
— skipper seabold (@jseabold) October 3, 2020
y consulto en uno (de los más usados y famosos) de esos manuales españoles (ergo, hiperclásicos) de introducción a la modelización de series temporales y no veo capítulo con el que pueda tratarse razonablemente.
¡Tiempo de actualizarse (p.e., así)!
El otro día escribí sobre visitas a la Wikipedia. El otro día (posiblemente otro) oí hablar de prophet.
Hoy con
library(wikipediatrend)
library(prophet)
library(ggplot2)
visitas <- wp_trend(
"R_(lenguaje_de_programaci%C3%B3n)",
from = "2010-01-01", to = Sys.Date(),
lang = "es")
mis.visitas <- visitas[, c("date", "count")]
colnames(mis.visitas) <- c("ds", "y")
pasado <- mis.visitas[1:1500,]
m <- prophet(pasado)
futuro <- make_future_dataframe(m,
periods = nrow(mis.visitas) - 1500)
prediccion <- predict(m, futuro)
pred.plot <- plot(m, prediccion)
pred.plot +
geom_line(data = mis.visitas[1501:nrow(mis.visitas),],
aes(x = ds, y = y), col = "red", alpha = 0.2) +
xlab("fecha") + ylab("visitas") +
ggtitle("Predicción de visitas a la página de R\nen la Wikipedia con prophet")construyo
