Constucción de una serie de tiempo y su gráfica

Se crearon las siguientes funciones con las cuales podemos seleccionar una serie aleatoria del archivo dado, y después se puede graficar.

serie<- function(){
renglon <- sample(1:1001,1)
s <- series[renglon, -c(1:7)]%>% t() %>%na.omit()  %>% as.vector()
}

grafica_serie <-function(serie){
  sr<- serie
  datos <- data.frame(x=0:(length(sr)-1), y=sr)
  ggplotly(ggplot(datos,aes(x,y)) + geom_line()+ labs(x="Tiempo", y="Serie")+ ggtitle("Gráfica de la serie") + theme_solarized_2())
}

Para cada ejemplo se selecciona una serie aleatoria y se grafica dicha serie.

Ejemplo 1

Ejemplo 2

Ejemplo 3