La primera función con el nombre de “serief” toma de las 1001 series guardadas en el data.frame “MC1001” una de forma aleatoria. La segunda función con el nombre “gg_serie” grafica la serie seleccionada anteriormente por la función ya mencionada.
series<-read_excel("MC1001.xls")
serief<- function(){
renglon <- sample(1:1001,1)
s <- series[renglon, -c(1:7)]%>% t() %>%na.omit() %>% as.vector()
}
gg_serie <-function(serief){
sr<- serief
datos <- data.frame(x=0:(length(sr)-1), y=sr)
ggplotly(ggplot(datos,aes(x,y)) + geom_line()+ labs(y="Observaciones", x="Tiempo")+
theme_hc()+ggtitle("Serie"))
}