El objetivo de esta práctica es crear una función que extraiga cualquier serie de tiempo de la base de datos de manera aleatoria y otra más que la grafique.

FUNCIONES

Función 1

Función que selecciona una serie de tiempo de nuestra base de datos, está base es seleccionada de manera aleatoria. La función recibe el nombre de “serieselect”

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

Función 2

Función que grafica la serie de tiempo seleccionada en la Función 1. En esta función se puede seleccionar con que metodo gráfico imprimir la serie. En el segundo argumento de la función debera colocar un número (1,2,3) para seleccionar el metodo siendo

1 para grafico con ggplot

2 para grafico con plotly

3 para grafico con plot

La funcion lleva el nombre de “plot_serie”

y los argumentos que recibe son

(serie_a_graficar, numero_que_indica_el_metodo_grafico)

plot_serie<- function(s, b){
  if(b==1)
  {
  datos=data.frame( x=c(1:length(s)), y = s)
  ggplot(datos,aes(x,y)) + geom_line(color="red")+ labs(y="Observación", x="Tiempo")+
    ggtitle("Serie") + theme_minimal()}
  else if (b==2)
    {datos=data.frame( x=c(1:length(s)), y = s)
 ggplotly( ggplot(datos,aes(x,y)) + geom_line(color="blue")+ labs(y="Observación", x="Tiempo")+
    ggtitle("Serie") + theme_minimal())}
  else if (b==3)
  {
    plot(x=c(1:length(s)),s, type = "l", main="Serie" , ylab = "Observación", xlab = "Tiempo", col="blue", lwd="2") 
    points(x=c(1:length(s)),s, col="red")  
  }
    
}

EJEMPLOS

Ejemplo1

 a<-serieselect()

plot_serie(a,1)

Ejemplo2

b<- serieselect()
plot_serie(b,2)

Ejemplo3

c<- serieselect()
plot_serie(c,3)