[1] Indice de volumen de la actividad Economica(IVAE)Serie Original

library(readxl)
library(tidyr)
library(dplyr)
library(forecast)

   IVAE_03_22 <- read_excel("C:/Users/Torres/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")

[1] Descomposición Aditiva

descomposicion_aditiva<-decompose(data.ivae.ts,type = "additive")
autoplot(descomposicion_aditiva, main = "Descomposicion Aditiva",
         xlab = "Años/Meses")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "IVAE, El Salvador 2009-2021[marzo]",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC)

Agricultura, Ganaderia, Silvicultura y Pesca Enero 2009 - Marzo 2022

data.ivae<-pivot_longer(data = IVAE_03_22[2,], 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 = "Agricultura, Ganadería, Silvicultura y Pesca Enero 2009 - Marzo 2022", 
           xlab = "Años/Meses", 
           ylab = "Indice")

Descomposición Adictiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Agricultura, Ganadería, Silvicultura y Pesca Enero 2009-Marzo 2022")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Agricultura, Ganadería, Silvicultura y Pesca, Enero 2009-Marzo 2022",
         xlab="Años/Meses",
         ylab="Indice")+ 
  autolayer(TC)

Industruias Manufactureras, Explotación de Minas y otras Actividades Industriales Enero 2009-Marzo 2022

data.ivae<-pivot_longer(data = IVAE_03_22[3,], 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 = "Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales Enero 2009-Marzo 2022 ",
                           xlab = "Años/Meses",
                           ylab = "Indice")

Descomposicion Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Industrias Manufactureras, Explotación de Minas, Canteras y Otras Actividades Industriales, Enero 2009-Marzo 2022")

Tendecia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales, Enero 2009-Marzo 2022",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC)

Construcción

data.ivae<-pivot_longer(data = IVAE_03_22[4,], 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 = "Construcción Enero 2009-Marzo 2022", 
           xlab = "Años/Meses",
           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Construcción Enero 2009-Marzo 2022")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Construcción",
         xlab="Años/Meses",
         ylab="Indice")+ 
  autolayer(TC)

#Comercio, Transporte, Almacenamiento, Actividades de Alojamiento y de Servivio de Comidas

data.ivae<-pivot_longer(data = IVAE_03_22[5,], 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 = "Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas Enero 2009-Marzo 2022", 
           xlab = "Años/Meses", 
           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas") + autolayer(TC)

Informacion y Comunicaciones

data.ivae<-pivot_longer(data = IVAE_03_22[6,], 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 = " Información y Comunicaciones Enero 2009-Marzo 2022", 
                           xlab = "Años/Meses", 
                           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Información y Comunicaciones")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Información y Comunicaciones",
         xlab="Años/Meses",
         ylab="Indice")+ 
  autolayer(TC)

Actividades Financieras y de Seguros

data.ivae<-pivot_longer(data = IVAE_03_22[7,], 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 = " Actividades Financieras y de Seguros Enero 2009-Marzo 2022", 
           xlab = "Años/Meses", 
           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Actividades Financieras y de Seguros")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Actividades Financieras y de Seguros ",
         xlab="Años/Meses",
         ylab="Indice")+
  autolayer(TC)

#Actividades Inmobiliarias

data.ivae<-pivot_longer(data = IVAE_03_22[8,], 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 = " Actividades Inmobiliarias Enero 2009-Marzo 2022", 
           xlab = "Años/Meses", 
           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Actividades Inmobiliarias")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Actividades Inmobiliarias",
         xlab="Años/Meses",
         ylab="Indice")+ 
  autolayer(TC)

Actividades Profesionales, Cientificas, Tecnicas, Administrativas, de Apoyo y Otros Servicios

data.ivae<-pivot_longer(data = IVAE_03_22[9,], 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 = "Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios Enero 2009-Marzo 2022", 
           xlab = "Años/Meses", 
           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Rubro Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios ",
         xlab="Años/Meses",
         ylab="Indice")+ 
  autolayer(TC)

Actividades de Administracion Pública y Defensa, Enseñanza, Salud y Asistencia Social

data.ivae<-pivot_longer(data = IVAE_03_22[10,], 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 = "Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social Enero 2009-Marzo 2022",
                           xlab = "Años/Meses", 
                           ylab = "Indice")

Descomposición Aditiva

descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
autoplot(descomposicion_aditiva, main = "Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social")

Tendencia Ciclo

Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, 
         main = "Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social ",
         xlab="Años/Meses",
         ylab="Indice")+ 
  autolayer(TC)

Ejercicio de descomposicion de series Temporales

ALEXIS ANTONIO TORRES ROSALES

2022-06-12

[1] Indice de volumen de la actividad Economica(IVAE)Serie Original

[1] Descomposición Aditiva

Tendencia Ciclo

Agricultura, Ganaderia, Silvicultura y Pesca Enero 2009 - Marzo 2022

Descomposición Adictiva

Tendencia Ciclo

Industruias Manufactureras, Explotación de Minas y otras Actividades Industriales Enero 2009-Marzo 2022

Descomposicion Aditiva

Tendecia Ciclo

Construcción

Descomposición Aditiva

Tendencia Ciclo

Descomposición Aditiva

Tendencia Ciclo

Informacion y Comunicaciones

Descomposición Aditiva

Tendencia Ciclo

Actividades Financieras y de Seguros

Descomposición Aditiva

Tendencia Ciclo

Descomposición Aditiva

Tendencia Ciclo

Actividades Profesionales, Cientificas, Tecnicas, Administrativas, de Apoyo y Otros Servicios

Descomposición Aditiva

Tendencia Ciclo