library(readxl)
library(tidyr)
library(dplyr)
library(forecast)
IVAE_03_22<- read_excel("C:/Users/8abla/OneDrive/Documents/EMA118/IVAE/IVAE DESC/IVAE_03_22.xlsx",
col_names = FALSE, skip = 6, n_max=10)CARGA DE DATOS: IVAE
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)DESCOMPOSICION ADITIVA IVAE
descomposicion_aditiva<-decompose(data_ivae_ts,type = "additive")
Yt<-descomposicion_aditiva$x
Tc<-descomposicion_aditiva$trend
autoplot(Yt,main="Descomposición Aditiva IVAE",xlab="Años/Meses",ylab = "indice") + autolayer(Tc)
CARGA DE DATOS: Agricultura, Ganaderia, Silvicultura y Pesca
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)DESCOMPOSICION ADITIVA Agricultura, Ganaderia, Silvicultura y Pesca
descomposicion_aditiva_2<-decompose(data_agri_ts,type = "additive")
Yt_2<-descomposicion_aditiva_2$x
Tc_2<-descomposicion_aditiva_2$trend
autoplot(Yt_2,main="Descomposición Aditiva Agricultura, Ganaderia, Silvicultura y Pesca ",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_2)
CARGA DE DATOS: Índice de Producción Industrial (IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales
data_prod<-pivot_longer(data = IVAE_03_22[3,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_prod_ts<-data_prod %>% ts(start = c(2009,1),frequency = 12)DESCOMPOSICION ADITIVA Índice de Producción Industrial (IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales
descomposicion_aditiva_3<-decompose(data_prod_ts,type = "additive")
Yt_3<-descomposicion_aditiva_3$x
Tc_3<-descomposicion_aditiva_3$trend
autoplot(Yt_3,main="Descomposición Aditiva Índice de Producción Industrial (IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_3)
# CARGA DE DATOS: Construccion
data_cons<-pivot_longer(data = IVAE_03_22[4,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_cons_ts<-data_cons %>% ts(start = c(2009,1),frequency = 12)DESCOMPOSICION ADITIVA Construccion
descomposicion_aditiva_4<-decompose(data_cons_ts,type = "additive")
Yt_4<-descomposicion_aditiva_4$x
Tc_4<-descomposicion_aditiva_4$trend
autoplot(Yt_4,main="Descomposición Aditiva Construccion",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_4)
# CARGA DE DATOS: Comercio, Transporte y Almacenamiento, Actividades de
Alojamiento y de Servicio de Comidas
data_com<-pivot_longer(data = IVAE_03_22[5,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_com_ts<-data_com %>% ts(start = c(2009,1),frequency = 12)DESCOMPOSICION ADITIVA Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas
descomposicion_aditiva_5<-decompose(data_com_ts,type = "additive")
Yt_5<-descomposicion_aditiva_5$x
Tc_5<-descomposicion_aditiva_5$trend
autoplot(Yt_5,main="Descomposición Aditiva Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_5)
CARGA DE DATOS: Informacion y Comunicaciones
data_inf<-pivot_longer(data = IVAE_03_22[6,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_inf_ts<-data_inf %>% ts(start = c(2009,1),frequency = 12)DESCOMPOSICION ADITIVA Informacion y Comunicaciones
descomposicion_aditiva_6<-decompose(data_inf_ts,type = "additive")
Yt_6<-descomposicion_aditiva_6$x
Tc_6<-descomposicion_aditiva_6$trend
autoplot(Yt_6,main="Descomposición Aditiva Informacion y Comunicaciones",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_6)
CARGA DE DATOS: Actividades Financieras y de Seguros
data_fin<-pivot_longer(data = IVAE_03_22[7,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_fin_ts<-data_fin %>% ts(start = c(2009,1),frequency = 12)DESCOMPOSICION ADITIVA Actividades Financieras y de Seguros
descomposicion_aditiva_7<-decompose(data_fin_ts,type = "additive")
Yt_7<-descomposicion_aditiva_7$x
Tc_7<-descomposicion_aditiva_7$trend
autoplot(Yt_7,main="Descomposición Aditiva Actividades Financieras y de Seguros",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_7)
CARGA DE DATOS: Actividades Inmobiliarias
data_inm<-pivot_longer(data = IVAE_03_22[8,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_inm_ts<-data_inm %>% ts(start = c(2009,1),frequency = 12)DESCOMPOSICION ADITIVA Actividades Inmobiliarias
descomposicion_aditiva_8<-decompose(data_inm_ts,type = "additive")
Yt_8<-descomposicion_aditiva_8$x
Tc_8<-descomposicion_aditiva_8$trend
autoplot(Yt_8,main="Descomposición Aditiva Actividades Inmobiliarias",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_8)
CARGA DE DATOS: Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios
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)DESCOMPOSICION ADITIVA Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios
descomposicion_aditiva_9<-decompose(data_prof_ts,type = "additive")
Yt_9<-descomposicion_aditiva_9$x
Tc_9<-descomposicion_aditiva_9$trend
autoplot(Yt_9,main="Descomposición Aditiva Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_9)
DESCOMPOSICION ADITIVA Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social
descomposicion_aditiva_10<-decompose(data_pub_ts,type = "additive")
Yt_10<-descomposicion_aditiva_10$x
Tc_10<-descomposicion_aditiva_10$trend
autoplot(Yt_10,main="Descomposición Aditiva Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_10)