library(readxl)
library(tidyr)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(forecast)
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
IVAE_03_22 <- read_excel("C:/Users/liizm/Desktop/IVAE_03_22.xlsx", 
    col_names = FALSE, skip = 6, n_max = 10)
## New names:
## * `` -> ...1
## * `` -> ...2
## * `` -> ...3
## * `` -> ...4
## * `` -> ...5
## * ...
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")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva1<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva1, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva1$x
TC<-descompocicion_aditiva1$trend
autoplot(Yt,
         main = "componente IVAE...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

AGRICULTURA, GANADERIA, SILVICULTURA Y PESCA

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva2<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva2, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva2$x
TC<-descompocicion_aditiva2$trend
autoplot(Yt,
         main = "Agricultura...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

INDICE DE PRODUCCION INDUSTRIAL (IPI)

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva3<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva3, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva3$x
TC<-descompocicion_aditiva3$trend
autoplot(Yt,
         main = "Indice de Produccion Industrial...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

CONSTRUCCION

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva4<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva4, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva4$x
TC<-descompocicion_aditiva4$trend
autoplot(Yt,
         main = "Construccion...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

COMERCIO, TRANSPORTE Y ALMACENAMIENTO

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva5<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva5, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva5$x
TC<-descompocicion_aditiva5$trend
autoplot(Yt,
         main = "Comercio...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva6<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva6, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva6$x
TC<-descompocicion_aditiva6$trend
autoplot(Yt,
         main = "Info y Comunicaciones...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva7<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva7, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva7$x
TC<-descompocicion_aditiva7$trend
autoplot(Yt,
         main = "Acts financieras...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva8<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva8, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva8$x
TC<-descompocicion_aditiva8$trend
autoplot(Yt,
         main = "Acts inmobiliarias...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

ACTIVIDADES PROFESIONALES, CIENTIFICAS, TECNICAS, ADMINISTRATIVAS

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva9<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva9, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva9$x
TC<-descompocicion_aditiva9$trend
autoplot(Yt,
         main = "Acts profesionales...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).

ACTIVIDADES DE ADMINISTRACION PUBLICA Y DE DEFENSA

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 ="IVAE ENE 2009- MAR 2022",
           xlab="Años/Meses",
           ylab="Indice")

library(forecast)
#Descomposición aditiva
descompocicion_aditiva10<-decompose(data.ivae.ts,type = "additive")
#gráfico de la descompocición
autoplot(descompocicion_aditiva10, main="titulo")

#gráfico de la serie original y el componente tendencia ciclo
Yt<-descompocicion_aditiva10$x
TC<-descompocicion_aditiva10$trend
autoplot(Yt,
         main = "Acts administracion publica...")+
  autolayer(TC)
## Warning: Removed 12 row(s) containing missing values (geom_path).