1. Presentacion de la serie temporal y ejemplo
IVAE
#carga del archivo fuente
library(dplyr)
library(tidyr)
library(forecast)
library(readxl)
IVAE_03_22 <- read_excel("C:/Users/Familia/Downloads/IVAE_03_22.xlsx",
col_names = FALSE, skip = 6, n_max = 10)
data.ivae<-pivot_longer(data = IVAE_03_22[1,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1),frequency = 12)
data.ivae.ts %>%
autoplot(main ="IVAE ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposicion aditival
descompocicion_aditiva<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva, main="Descomposicion Aditiva IVAE")
#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva$x #serie original
TC<-descompocicion_aditiva$trend #componente tendencia ciclo
autoplot(Yt, main = "IVAE original y componente tendencia ciclo")+
autolayer(TC)
2. Ejemplo para Agricultura, Ganadería, Silvicultura y Pesca
(Ene 2009-Mar 2022)
data.agri<-pivot_longer(data = IVAE_03_22[2,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.agri.ts<- data.agri %>% ts(start = c(2009,1),frequency = 12)
data.agri.ts %>%
autoplot(main ="Agricultura, Ganadería, Silvicultura y Pesca ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva2<-decompose(data.agri.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva2, main="Descomposicion Aditiva Agricultura, Ganadería, Silvicultura y Pesca")
#gráfico de la serie original y el componente tendencia ciclo
Yt2<-descompocicion_aditiva2$x #serie original
TC2<-descompocicion_aditiva2$trend #componente tendencia ciclo
autoplot(Yt2, main = "Agricultura, Ganadería, Silvicultura y Pesca")+
autolayer(TC2)
3. Ejemplo para Índice de Producción Industrial (IPI) (Ene
2009-Mar 2022)
data.IPI<-pivot_longer(data = IVAE_03_22[3,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.IPI.ts<- data.IPI %>% ts(start = c(2009,1),frequency = 12)
data.IPI.ts %>%
autoplot(main ="Índice de Producción Industrial (IPI) ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva3<-decompose(data.IPI.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva3, main="Descomposicion Aditiva Índice de Producción Industrial (IPI)")
#gráfico de la serie original y el componente tendencia ciclo
Yt3<-descompocicion_aditiva3$x #serie original
TC3<-descompocicion_aditiva3$trend #componente tendencia ciclo
autoplot(Yt3, main = "Índice de Producción Industrial (IPI)")+
autolayer(TC3)
4. Ejemplo para Construccion (Ene 2009-Mar
2022)
data.const<-pivot_longer(data = IVAE_03_22[4,],names_to = "vars"
,cols = 2:160,values_to = "indice") %>% select("indice")
data.const.ts<- data.const %>% ts(start = c(2009,1),frequency = 12)
data.const.ts %>%
autoplot(main ="Construccion ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva4<-decompose(data.const.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva4, main="Descomposicion Aditiva Construccion")
#gráfico de la serie original y el componente tendencia ciclo
Yt4<-descompocicion_aditiva4$x #serie original
TC4<-descompocicion_aditiva4$trend #componente tendencia ciclo
autoplot(Yt4, main = "Construccion")+
autolayer(TC4)
5. Ejemplo para Comercio y otros (Ene 2009-Mar
2022)
data.comer<-pivot_longer(data = IVAE_03_22[5,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.comer.ts<- data.comer %>% ts(start = c(2009,1),frequency = 12)
data.comer.ts %>%
autoplot(main ="Comercio y otros ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva5<-decompose(data.comer.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva5, main="Descomposicion Aditiva Comercio y otros")
#gráfico de la serie original y el componente tendencia ciclo
Yt5<-descompocicion_aditiva5$x #serie original
TC5<-descompocicion_aditiva5$trend #componente tendencia ciclo
autoplot(Yt5, main = "Comercio y otros")+
autolayer(TC5)
7. Ejemplo para Actividades Financieras y de Seguros (Ene
2009-Mar 2022)
data.finseg<-pivot_longer(data = IVAE_03_22[7,],names_to = "vars",
cols = 2:160,values_to = "indice") %>% select("indice")
data.finseg.ts<- data.finseg %>% ts(start = c(2009,1),frequency = 12)
data.finseg.ts %>%
autoplot(main ="Actividades Financieras y de Seguros ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva7<-decompose(data.finseg.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva7, main="Descomposicion Aditiva Actividades Financieras y de Seguros")
#gráfico de la serie original y el componente tendencia ciclo
Yt7<-descompocicion_aditiva7$x #serie original
TC7<-descompocicion_aditiva7$trend #componente tendencia ciclo
autoplot(Yt7, main = "Actividades Financieras y de Seguros")+
autolayer(TC7)
8. Ejemplo para Actividades Inmobiliarias (Ene 2009-Mar
2022)
data.inmob<-pivot_longer(data = IVAE_03_22[8,],names_to = "vars",
cols = 2:160,values_to = "indice") %>% select("indice")
data.inmob.ts<- data.inmob %>% ts(start = c(2009,1),frequency = 12)
data.inmob.ts %>%
autoplot(main ="Actividades Inmobiliarias ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva8<-decompose(data.inmob.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva8, main="Descomposicion Aditiva Actividades Inmobiliarias")
#gráfico de la serie original y el componente tendencia ciclo
Yt8<-descompocicion_aditiva8$x #serie original
TC8<-descompocicion_aditiva8$trend #componente tendencia ciclo
autoplot(Yt8, main = " Actividades Inmobiliarias")+
autolayer(TC8)
9. Ejemplo para Actividades Profesionales y otros Servicios
(Ene 2009-Mar 2022)
data.prof<-pivot_longer(data = IVAE_03_22[9,],names_to = "vars",
cols = 2:160,values_to = "indice") %>% select("indice")
data.prof.ts<- data.prof %>% ts(start = c(2009,1),frequency = 12)
data.prof.ts %>%
autoplot(main ="Actividades Profesionales y otros Servicios ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva9<-decompose(data.prof.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva9, main="Descomposicion Aditiva Actividades Profesionales y otros Servicios")
#gráfico de la serie original y el componente tendencia ciclo
Yt9<-descompocicion_aditiva9$x #serie original
TC9<-descompocicion_aditiva9$trend #componente tendencia ciclo
autoplot(Yt9, main = "Actividades Profesionales y otros Servicios")+
autolayer(TC9)
10. Ejemplo para Actividades de Administracion Publica y
otros (Ene 2009-Mar 2022)
data.actadm<-pivot_longer(data = IVAE_03_22[10,],
names_to = "vars",cols = 2:160,
values_to = "indice") %>% select("indice")
data.actadm.ts<- data.actadm %>% ts(start = c(2009,1),frequency = 12)
data.actadm.ts %>%
autoplot(main ="Actividades de Administracion Publica y otros ENE 2009- MAR 2022",
xlab="Años/Meses",
ylab="Indice")
#Descomposición aditiva
descompocicion_aditiva10<-decompose(data.actadm.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva10, main="Descomposicion Aditiva Actividades de Administracion Publica y otros")
#gráfico de la serie original y el componente tendencia ciclo
Yt10<-descompocicion_aditiva10$x #serie original
TC10<-descompocicion_aditiva10$trend #componente tendencia ciclo
autoplot(Yt10, main = "Actividades de Administracion Publica y otros")+
autolayer(TC10)
