Practica 1
Ilse Mera
Series de Tiempo
A continuación se carga el excel que contiene los datos de las series de tiempo.
series <- read_excel("C:/Users/Bebesitos/Downloads/file_show.xls")## New names:
## * `` -> ...158
## * `` -> ...159
## * `` -> ...160
## * `` -> ...161
## * `` -> ...162
## * ... and 3 more problemsSe crea la función que selecciona una serie de la base de manera aleatoria
extraer<-function(loca1){
renglon<-sample(1:1001,1,replace=FALSE)
a<-t(series[renglon, -c(1:7)])
a <-na.omit(a)
tabla<-data.frame(Tiempo=c(1:length(a)), Serie=a)
tabla
}
extraer(loca1)## Tiempo Serie
## 1 1 27244
## 2 2 28140
## 3 3 29140
## 4 4 29588
## 5 5 30936
## 6 6 31600
## 7 7 32496
## 8 8 33200
## 9 9 33232
## 10 10 33364
## 11 11 33992
## 12 12 33464
## 13 13 33776
## 14 14 34804
## 15 15 35008
## 16 16 35520
## 17 17 36140
## 18 18 36644
## 19 19 37116
## 20 20 37484
## 21 21 38564
## 22 22 37852
## 23 23 38437
## 24 24 38588
## 25 25 38288
## 26 26 39444
## 27 27 40004
## 28 28 40848
## 29 29 42280
## 30 30 42116
## 31 31 43240
## 32 32 44072
## 33 33 44656
## 34 34 45284
## 35 35 45992
## 36 36 47980
## 37 37 49016
## 38 38 49604
## 39 39 50812
## 40 40 51688
## 41 41 53404
## 42 42 54416
## 43 43 56064
## 44 44 57572
## 45 45 60192
## 46 46 61492
## 47 47 62308
## 48 48 63320
## 49 49 64776
## 50 50 66432
## 51 51 66536
## 52 52 67892
## 53 53 69596
## 54 54 71652
## 55 55 73528
## 56 56 75568
## 57 57 77616
## 58 58 78624
## 59 59 80256
## 60 60 82500
## 61 61 83620
## 62 62 84796
## 63 63 86168
## 64 64 87212
## 65 65 89308
## 66 66 91828
## 67 67 94644
## 68 68 96596La función siguiente es la encargada de graficar la serie aleatoriamente
grafica_serie<-function(loca1){
renglon<-sample(1:1001,1,replace=FALSE)
a<-t(series[renglon, -c(1:7)])
a <-na.omit(a)
tabla<-data.frame(Tiempo=c(1:length(a)), Serie=a)
ggplotly(ggplot(tabla)+geom_line(aes(x=Tiempo, y=Serie), color="darkorchid4")+
geom_point(aes(x=Tiempo, y=Serie), color="deepskyblue")
+ ggtitle(paste("Grafica correspondiente a la serie: ",renglon))+ theme_light())
}Ejemplo 1
Ejemplo 2
Ejemplo 3
Nepo plot