1. Índice de Volumen de la Actividad Económica (IVAE), enero de 2009 - marzo de 2022

library(readxl)
library(tidyr)
library(dplyr)
library(forecast)
IVAE_03_22 <- read_excel("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")

Descomposición aditiva

descomposicion_aditiva<-decompose(data.ivae.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva, main="IVAE, ENE 2009 - MAR 2022")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt,
         main = "IVAE, ENE 2009 - MAR 2022",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC)


2. Agricultura, Ganadería, Silvicultura y Pesca

data.agricultura<-pivot_longer(data = IVAE_03_22[2,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.agricultura.ts<- data.agricultura %>% ts(start = c(2009,1),frequency = 12)
data.agricultura.ts %>% 
  autoplot(main ="Agricultura, Ganadería, Silvicultura y Pesca, enero 2009 - marzo 2022",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva2<-decompose(data.agricultura.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva2, main="Agricultura, Ganadería, Silvicultura y Pesca, enero 2009 - marzo 2022")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_agricultura<-descomposicion_aditiva2$x
TC_agricultura<-descomposicion_aditiva2$trend
autoplot(Yt_agricultura,
         main = "Agricultura, Ganadería, Silvicultura y Pesca, enero 2009 - marzo 2022",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_agricultura)


3. Índice de Producción Industrial (IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales

data.industria<-pivot_longer(data = IVAE_03_22[3,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.industria.ts<- data.industria %>% ts(start = c(2009,1),frequency = 12)
data.industria.ts %>% 
  autoplot(main ="Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales, enero 2009 - marzo 2022",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva3<-decompose(data.industria.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva3, main="Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_industria<-descomposicion_aditiva3$x
TC_industria<-descomposicion_aditiva3$trend
autoplot(Yt_industria,
         main = "Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_industria)


4. Construcción

data.construccion<-pivot_longer(data = IVAE_03_22[4,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.construccion.ts<- data.construccion %>% ts(start = c(2009,1),frequency = 12)
data.construccion.ts %>% 
  autoplot(main ="Construcción",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva4<-decompose(data.construccion.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva4, main="Construcción")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_construccion<-descomposicion_aditiva4$x
TC_construccion<-descomposicion_aditiva4$trend
autoplot(Yt_construccion,
         main = "Construcción",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_construccion)


5. Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas

data.comercio<-pivot_longer(data = IVAE_03_22[5,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.comercio.ts<- data.comercio %>% ts(start = c(2009,1),frequency = 12)
data.comercio.ts %>% 
  autoplot(main ="Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva5<-decompose(data.comercio.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva5, main="Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_comercio<-descomposicion_aditiva5$x
TC_comercio<-descomposicion_aditiva5$trend
autoplot(Yt_comercio,
         main = "Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_comercio)


6. Información y Comunicaciones

data.comunicaciones<-pivot_longer(data = IVAE_03_22[6,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.comunicaciones.ts<- data.comunicaciones %>% ts(start = c(2009,1),frequency = 12)
data.comunicaciones.ts %>% 
  autoplot(main ="Información y Comunicaciones",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva6<-decompose(data.comunicaciones.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva6, main="Información y Comunicaciones")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_comunicaciones<-descomposicion_aditiva6$x
TC_comunicaciones<-descomposicion_aditiva6$trend
autoplot(Yt_comunicaciones,
         main = "Información y Comunicaciones",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_comunicaciones)


7. Actividades Financieras y de Seguros

data.financias<-pivot_longer(data = IVAE_03_22[7,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.financias.ts<- data.financias %>% ts(start = c(2009,1),frequency = 12)
data.financias.ts %>% 
  autoplot(main ="Actividades Financieras y de Seguros",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva7<-decompose(data.financias.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva7, main="Actividades Financieras y de Seguros")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_financias<-descomposicion_aditiva7$x
TC_financias<-descomposicion_aditiva7$trend
autoplot(Yt_financias,
         main = "Actividades Financieras y de Seguros",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_financias)


8. Actividades Inmobiliarias

data.inmobiliarias<-pivot_longer(data = IVAE_03_22[8,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.inmobiliarias.ts<- data.inmobiliarias %>% ts(start = c(2009,1),frequency = 12)
data.inmobiliarias.ts %>% 
  autoplot(main ="Actividades Inmobiliarias",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva8<-decompose(data.inmobiliarias.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva8, main="Actividades Inmobiliarias")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_inmobiliarias<-descomposicion_aditiva8$x
TC_inmobiliarias<-descomposicion_aditiva8$trend
autoplot(Yt_inmobiliarias,
         main = "Actividades Inmobiliarias",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_inmobiliarias)


9. Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios

data.profesionales<-pivot_longer(data = IVAE_03_22[9,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.profesionales.ts<- data.profesionales %>% ts(start = c(2009,1),frequency = 12)
data.profesionales.ts %>% 
  autoplot(main ="Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva9<-decompose(data.profesionales.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva9, main="Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_profesionales<-descomposicion_aditiva9$x
TC_profesionales<-descomposicion_aditiva9$trend
autoplot(Yt_profesionales,
         main = "Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_profesionales)


10. Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social

data.salud<-pivot_longer(data = IVAE_03_22[10,],names_to = "vars",cols = 2:160,values_to = "indice") %>% select("indice")
data.salud.ts<- data.salud %>% ts(start = c(2009,1),frequency = 12)
data.salud.ts %>% 
  autoplot(main ="Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social",
           xlab="Años/Meses",
           ylab="Indice")

Descomposición aditiva

descomposicion_aditiva10<-decompose(data.salud.ts,type = "additive")

#Gráfico de la descomposición
autoplot(descomposicion_aditiva10, main="Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social")

Tendencia ciclo

#Gráfico de la serie original y el componente tendencia ciclo
Yt_salud<-descomposicion_aditiva10$x
TC_salud<-descomposicion_aditiva10$trend
autoplot(Yt_salud,
         main = "Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC_salud)