CARGA DE DATA GENERAL
library(readxl)
library(tidyr)
library(dplyr)
library(forecast)
library(readr)
IVAE_03_22 <- read_excel("C:/Users/Luis Anaya/Downloads/IVAE_03_22.xlsx",
col_names = FALSE, skip = 6, n_max = 10)CARGA DE DATA 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="IVAE",xlab="Años/Meses",ylab = "indice") + autolayer(Tc)
Carga de data 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_aditiva2<-decompose(data_agri_ts,type = "additive")
Yt2<-descomposicion_aditiva2$x
Tc2<-descomposicion_aditiva2$trend
autoplot(Yt2,main="Agricultura, Ganaderia, Silvicultura y Pesca",xlab="Años/Meses",ylab = "indice") + autolayer(Tc2)
Carga de data Indice de Produccion Industrial (IPI): Industrias Manufactureras, Explotación de Minas y Canteras y Otras Actividades Industriales
data_IPI<-pivot_longer(data = IVAE_03_22[3,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_IPI_ts<-data_IPI %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva IPI
descomposicion_aditiva3<-decompose(data_IPI_ts,type = "additive")
Yt3<-descomposicion_aditiva3$x
Tc3<-descomposicion_aditiva3$trend
autoplot(Yt3,main=" Indice de Producción Industrial (IPI): Industrias Manufactureras, Explotacion de Minas y Canteras y Otras Actividades Industriales",xlab="Años/Meses",ylab = "indice") + autolayer(Tc3)
Carga de data de Construccion
data_constru<-pivot_longer(data = IVAE_03_22[4,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_constru_ts<-data_constru %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva Construccion
descomposicion_aditiva4<-decompose(data_constru_ts,type = "additive")
Yt4<-descomposicion_aditiva4$x
Tc4<-descomposicion_aditiva4$trend
autoplot(Yt4,main=" Construccion",xlab="Años/Meses",ylab = "indice") + autolayer(Tc4)
Carga de data de Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas
data_comer<-pivot_longer(data = IVAE_03_22[5,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_comer_ts<-data_comer %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas
descomposicion_aditiva5<-decompose(data_comer_ts,type = "additive")
Yt5<-descomposicion_aditiva5$x
Tc5<-descomposicion_aditiva5$trend
autoplot(Yt5,main=" Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio de Comidas",xlab="Años/Meses",ylab = "indice") + autolayer(Tc5)
Carga de data de Información y Comunicaciones
data_info<-pivot_longer(data = IVAE_03_22[6,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_info_ts<-data_info %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva Información y Comunicaciones
descomposicion_aditiva6<-decompose(data_info_ts,type = "additive")
Yt6<-descomposicion_aditiva6$x
Tc6<-descomposicion_aditiva6$trend
autoplot(Yt6,main="Información y Comunicaciones",xlab="Años/Meses",ylab = "indice") + autolayer(Tc6)
Carga de data de Actividades Financieras y de Seguros
data_Finan<-pivot_longer(data = IVAE_03_22[7,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_Finan_ts<-data_Finan %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva Actividades Financieras y de Seguros
descomposicion_aditiva7<-decompose(data_Finan_ts,type = "additive")
Yt7<-descomposicion_aditiva7$x
Tc7<-descomposicion_aditiva7$trend
autoplot(Yt7,main="Actividades Financieras y de Seguros",xlab="Años/Meses",ylab = "indice") + autolayer(Tc7)
Carga de data de Actividades Inmobiliarias
data_inmobi<-pivot_longer(data = IVAE_03_22[8,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_inmobi_ts<-data_inmobi %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva Actividades Financieras y de Seguros
descomposicion_aditiva8<-decompose(data_inmobi_ts,type = "additive")
Yt8<-descomposicion_aditiva8$x
Tc8<-descomposicion_aditiva8$trend
autoplot(Yt8,main="Actividades Inmobiliarias",xlab="Años/Meses",ylab = "indice") + autolayer(Tc8)
Carga de data de Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios
data_acti<-pivot_longer(data = IVAE_03_22[9,],names_to = "vars", cols = 2:160,values_to = "indice") %>% select("indice")
data_acti_ts<-data_acti %>% ts(start = c(2009,1),frequency = 12)Descomposicion aditiva Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios
descomposicion_aditiva9<-decompose(data_acti_ts,type = "additive")
Yt9<-descomposicion_aditiva9$x
Tc9<-descomposicion_aditiva9$trend
autoplot(Yt9,main="Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros Servicios",xlab="Años/Meses",ylab = "indice") + autolayer(Tc9)
Descomposicion aditiva Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social
descomposicion_aditiva10<-decompose(data_admon_ts,type = "additive")
Yt10<-descomposicion_aditiva10$x
Tc10<-descomposicion_aditiva10$trend
autoplot(Yt10,main="Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Socials",xlab="Años/Meses",ylab = "indice") + autolayer(Tc10)