Series de Tiempo

Funcion 1 (miSerie)

Función que extrae cualquier serie (aleatoriamente) tomada de las 1001 series guardadas en el excel “MC1001”.

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

Funcion 2 (miGrafica)

Funcion que grafica la serie que nos retorne miSerie.

(plot no convencional)

miGrafica <-function(miSerie){
  serie<- miSerie
  data <- data.frame(x=0:(length(serie)-1), y=serie)
  ggplotly(ggplot(data,aes(x,y)) + geom_line(color ="#00fa9a", size = 2) + labs(y="Observaciones", x="Tiempo") + theme_hc() + ggtitle("Serie"))
}

Ejemplo 1

miGrafica(miSerie())

Ejemplo 2

miGrafica(miSerie())

Ejemplo 3

miGrafica(miSerie())