Practica 1 Series de Tiempo

Grafica de la Serie de Tiempo

La función que se presenta a continuación hace una gráfica que permite observar el valor que toma la serie a través del tiempo. La función solo recibe un parametro que es el conjunto de datos sobre el que trabajamos, debido a que la elección del renglón se hace de manera aleatoria no necesitamos de este otro parametro. Adicionalmente la función también nos muestra el número del renglón aleatorio tomado del conjunto de datos.

El código de la función es el siguiente:

Grafica_Serie<-function(series){
n<-sample(1:1001,1,replace=FALSE); serie_n<-t(series[n,-c(1:7)])
serie_n<-na.omit(serie_n); serie_n<-data.frame(Tiempo=c(1:length(serie_n)), Serie=serie_n)

p<-plot_ly(data=serie_n, x= ~Tiempo, y= ~Serie, 
        type = 'scatter', 
        mode = 'lines+markers',
        color = '#B40486',
        marker = list(size = 7,
                      color = 'rgba(255, 182, 193, .9)',
                      line = list(color = 'rgba(152, 0, 0, .8)',
                      width = 2)))%>%
  layout(title = paste("Serie del renglón: ", n),
         yaxis = list(zeroline = FALSE),
         xaxis = list(zeroline = FALSE))

return(p)
}

Ejemplos

Debido a que la grafica se obtiene de manera aleatoria podemos fijar una semilla para poder replicar los resultados después. Usando el archivo del código dado tenemos:

series <- read_excel("MC1001.xls")

Ejemplo 1

set.seed(123)
Grafica_Serie(series)

Ejemplo 2

set.seed(1)
Grafica_Serie(series)

Ejemplo 3

set.seed(77)
Grafica_Serie(series)