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.