Carga de Datos
IVAE_03_22 <-
read_excel(
"C:/Users/Keiry/Documents/Eco22/IVAE_22_03.xlsx",
col_names = FALSE,
skip = 6,
n_max = 10
)
IVAE_03_22[1:10, 1:10]
## # A tibble: 10 x 10
## ...1 ...2 ...3 ...4 ...5 ...6 ...7 ...8 ...9 ...10
## <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 IVAE 86.7 80.8 87.2 83.9 91.4 93.5 86.4 86.7 87.6
## 2 2 Agricultura, Gan~ 86.8 70.2 65.2 67.4 138. 153. 75.6 137. 110.
## 3 3 Índice de Produc~ 86.6 85.4 100. 91.6 91.2 89.7 86.8 81.2 86.6
## 4 4 Construcción 66.6 76.9 82.6 82.6 69.0 80.8 82.5 67.3 74.5
## 5 5 Comercio, Transp~ 91.0 74.8 77.8 80.0 89.6 90.6 81.9 82.3 80.1
## 6 6 Información y Co~ 94.6 76.9 81.9 81.0 92.3 91.9 96.9 81.3 104.
## 7 7 Actividades Fina~ 97.4 85.7 94.9 88.9 92.6 91.6 92.1 94.2 92.6
## 8 8 Actividades Inmo~ 96.8 95.2 94.6 93.9 94.0 94.6 95.3 95.9 96.4
## 9 9 Actividades Prof~ 80.7 76.9 81.0 77.2 86.1 87.8 82.9 75.9 80.4
## 10 10 Actividades de ~ 80.8 83.0 91.3 83.9 84.9 86.7 90.3 87.7 88.4
IVAE
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "IVAE, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Agricultura, Ganadería, Silvicultura y Pesca
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Agricultura, Ganadería, Silvicultura y Pesca, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Índice de Producción Industrial
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Índice de Producción Industrial, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Construcción
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Construcción, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Comercio, Transporte y Almacenamiento, Actividades de Alojamiento y de Servicio
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Comercio, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Actividades Financieras y de Seguros
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Actividades Financieras y de Seguros, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Actividades Inmobiliarias
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Actividades Inmobiliarias, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Actividades Profesionales, Científicas, Técnicas, Administrativas, de Apoyo y Otros
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Actividades Profesionales, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
Actividades de Administración Pública y Defensa, Enseñanza, Salud y Asistencia Social
#Carga de datos
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)
#Tendencia Ciclo
descomposicion_aditiva <- decompose(data.ivae.ts, type = "additive")
ST <- descomposicion_aditiva$x
TC <- descomposicion_aditiva$trend
autoplot(ST,
main = "Actividades de Administración Pública, El Salvador 2009-2022[marzo]",
xlab = "Años/Meses",
ylab = "Indice") +
autolayer(TC)
