Serie IVAE

## clase de 07 de junio
##Cargando datos 
library(readxl)
library(tidyr)
library(dplyr)
library(forecast)
IVAE_03_22 <- read_excel("~/EMA1182022/IVAE/IVAE_03_22.xlsx", col_names = F, skip = 6, n_max = 10)
##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[1,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
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")

##Clase 09 de junio
##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "IVAE")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "IVAE") + autolayer(TC)

Agricultura, Ganadería, Silvicultura y Pesca ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[2,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1), frequency = 12)
data.ivae.ts %>%  autoplot(main = "Agricultura, Ganadería, Silvicultura y Pesca ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "Agricultura, Ganadería, Silvicultura y Pesca")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Agricultura, Ganadería, Silvicultura y Pesca") + autolayer(TC)

Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[3,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1), frequency = 12)
data.ivae.ts %>%  autoplot(main = "(IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales  ENE 2009 - MAR 2022 ", xlab = "Años/Meses", ylab = "Indice")

##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "(IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro (IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales ") + autolayer(TC)

Construcción ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[4,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1), frequency = 12)
data.ivae.ts %>%  autoplot(main = "Construcción ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "Construcción")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Construcción") + autolayer(TC)

Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[5,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
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 ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

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

##Grafico de la serie original y el componente 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)

Información y Comunicaciones ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[6,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1), frequency = 12)
data.ivae.ts %>%  autoplot(main = " Información y Comunicaciones ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "Información y Comunicaciones")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Información y Comunicaciones ") + autolayer(TC)

Actividades Financieras y de Seguros ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[7,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1), frequency = 12)
data.ivae.ts %>%  autoplot(main = " Actividades Financieras y de Seguros ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "Actividades Financieras y de Seguros")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Actividades Financieras y de Seguros ") + autolayer(TC)

Actividades Inmobiliarias ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[8,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
data.ivae.ts<- data.ivae %>% ts(start = c(2009,1), frequency = 12)
data.ivae.ts %>%  autoplot(main = " Actividades Inmobiliarias ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

##Decomposicion aditiva
descomposicion_aditiva<- decompose(data.ivae.ts, type = "additive")
##Grafico de la descomposicion
autoplot(descomposicion_aditiva, main = "Actividades Inmobiliarias")

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Actividades Inmobiliarias ") + autolayer(TC)

Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[9,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
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 ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

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

##Grafico de la serie original y el componente 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 ") + autolayer(TC)

Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social ENE 2009 - MAR 2022

##Seleccionando los datos
data.ivae<-pivot_longer(data = IVAE_03_22[10,], names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
##Graficando serie temporal
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 ENE 2009 - MAR 2022", xlab = "Años/Meses", ylab = "Indice")

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

##Grafico de la serie original y el componente tendencia ciclo
Yt<-descomposicion_aditiva$x
TC<-descomposicion_aditiva$trend
autoplot(Yt, main = "Rubro Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social ") + autolayer(TC)