Obtener la descomposición para cada uno de los componentes y grafico de la serie original y componente ciclico

Descomposición aditiva del IVAE

datos_ivae<-pivot_longer(data = IVAE_03_22[1,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_ivae_ts<-datos_ivae %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva<-decompose(data_ivae_ts,type = "additive")
Yt<-descomposicion_aditiva$x
Tc<-descomposicion_aditiva$trend

autoplot(Yt,main="Descomposición Aditiva del IVAE",xlab="Años/Meses",ylab = "indice") + autolayer(Tc)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de la Agricultura, Ganaderia, Silvicultura y Pesca

datos_agricultura<-pivot_longer(data = IVAE_03_22[2,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_agricultura_ts<-datos_agricultura %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_agri<-decompose(data_agricultura_ts,type = "additive")
Yt_agri<-descomposicion_aditiva_agri$x
Tc_agri<-descomposicion_aditiva_agri$trend

autoplot(Yt_agri,main="Descomposición Aditiva de la Agricultura, Ganaderia, Silvicultura y Pesca",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_agri)
## Warning: Removed 12 row(s) containing missing values (geom_path).

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

datos_IPI<-pivot_longer(data = IVAE_03_22[3,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_IPI_ts<-datos_IPI %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_IPI<-decompose(datos_IPI_ts,type = "additive")
Yt_IPI<-descomposicion_aditiva_IPI$x
Tc_IPI<-descomposicion_aditiva_IPI$trend

autoplot(Yt_IPI,main="Descomposición aditiva del Í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_IPI)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de la construcción

datos_construccion<-pivot_longer(data = IVAE_03_22[4,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_construccion_ts<-datos_construccion %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_construccion<-decompose(datos_construccion_ts,type = "additive")
Yt_construccion<-descomposicion_aditiva_construccion$x
Tc_construccion<-descomposicion_aditiva_construccion$trend

autoplot(Yt_construccion,main="Descomposición aditiva de la construccion",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_construccion)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva del Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas

datos_comercio<-pivot_longer(data = IVAE_03_22[5,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_comercio_ts<-datos_comercio %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_comercio<-decompose(datos_comercio_ts,type = "additive")
Yt_comercio<-descomposicion_aditiva_comercio$x
Tc_comercio<-descomposicion_aditiva_comercio$trend

autoplot(Yt_comercio,main="Descomposición aditiva del Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_comercio)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de la Informacion y Comunicaciones

datos_info_comu<-pivot_longer(data = IVAE_03_22[6,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_info_comu_ts<-datos_info_comu %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_info_comu<-decompose(datos_info_comu_ts,type = "additive")
Yt_info_comu<-descomposicion_aditiva_info_comu$x
Tc_info_comu<-descomposicion_aditiva_info_comu$trend

autoplot(Yt_info_comu,main="Descomposición aditiva de la Informacion y Comunicacioness",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_info_comu)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de las Actividades Financieras y de Seguros

datos_actifi<-pivot_longer(data = IVAE_03_22[7,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_actifi_ts<-datos_actifi %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_actifi<-decompose(datos_actifi_ts,type = "additive")
Yt_actifi<-descomposicion_aditiva_actifi$x
Tc_actifi<-descomposicion_aditiva_actifi$trend

autoplot(Yt_actifi,main="Descomposición aditiva de las Actividades Financieras y de Seguros",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_actifi)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de las Actividades Inmobiliarias

datos_inmo<-pivot_longer(data = IVAE_03_22[8,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_inmo_ts<-datos_inmo %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_inmo<-decompose(datos_inmo_ts,type = "additive")
Yt_inmo<-descomposicion_aditiva_inmo$x
Tc_inmo<-descomposicion_aditiva_inmo$trend

autoplot(Yt_inmo,main="Descomposición aditiva de las Actividades Inmobiliarias",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_inmo)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de las Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios

datos_actipro<-pivot_longer(data = IVAE_03_22[9,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_actipro_ts<-datos_actipro %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_actipro<-decompose(datos_actipro_ts,type = "additive")
Yt_actipro<-descomposicion_aditiva_actipro$x
Tc_actipro<-descomposicion_aditiva_actipro$trend

autoplot(Yt_actipro,main="Descomposición aditiva de las Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicioss",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_actipro)
## Warning: Removed 12 row(s) containing missing values (geom_path).

Descomposición aditiva de las Actividades Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social

datos_admipu<-pivot_longer(data = IVAE_03_22[10,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
datos_admipu_ts<-datos_admipu %>% ts(start = c(2009,1),frequency = 12)

descomposicion_aditiva_admipu<-decompose(datos_admipu_ts,type = "additive")
Yt_admipu<-descomposicion_aditiva_admipu$x
Tc_admipu<-descomposicion_aditiva_admipu$trend

autoplot(Yt_admipu,main="Descomposición aditiva de las Actividades Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social",xlab="Años/Meses",ylab = "indice") + autolayer(Tc_admipu)
## Warning: Removed 12 row(s) containing missing values (geom_path).