### Además, también se puede observar en el desempleo, pues tras crecer
sustancialmente el desempleo en 1990, este se reduce un poco para los
años 1992-1993.
PRODUCCIÓN_INDUSTRIAL_AÑO <- c(INDUSTRIAL_PRODUCTION_INDEX$YEAR)
PRODUCCIÓN_INDUSTRIAL <- c(INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
plot(data.frame(PRODUCCIÓN_INDUSTRIAL_AÑO,PRODUCCIÓN_INDUSTRIAL), type = "o", main = 'PRODUCCIÓN INDUSTRIAL COLOMBIA', lwd= 3, col= 'black')
summary(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -34.343 -2.338 9.048 10.089 20.953 44.724
boxplot(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`, main= "IMPORTACIONES COLOMBIA", horizontal = TRUE)
summary(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -27.1723 -0.2623 2.7559 6.6560 16.7726 48.3750
boxplot(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`, main= "EXPORTACIONES COLOMBIA", horizontal = TRUE)
## Interpretación: Se presenta un sesgo de derecha, pues existen más
datos a la izquierda, sumando a ello, la media se encuentra más cercana
a los datos de la izquierda; esto nos permite concluir que las
exportaciones no presentan un aumento o creicmiento significativo, dado
que la media se encuentra muy cerca de 0.
summary(INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -13.43872 -0.09083 1.36343 1.67634 3.98824 10.38251
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## [1] 0.3867776
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## [1] 0.5982074
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,UNEMPLOYMENT_RATE$`UNEMPLOYMENT RATE`)
## [1] -0.1308245
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,UNEMPLOYMENT_RATE$`UNEMPLOYMENT RATE`)
## [1] 0.1490973
summary(PRODUCER_CONSUMER_PRICE$`Consumer Price Index`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 2.018 5.031 14.898 14.659 23.200 33.714
summary(PRODUCER_CONSUMER_PRICE$`Producer Price Index`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -1.284 5.338 16.206 15.077 24.356 35.999
AÑO_PRECIO_CONSUM_PRODUC <- c(PRODUCER_CONSUMER_PRICE$AÑO)
PRECIO_CONSUMIDOR <- c(PRODUCER_CONSUMER_PRICE$`Consumer Price Index`)
plot(data.frame(AÑO_PRECIO_CONSUM_PRODUC,PRECIO_CONSUMIDOR), type = "o", main = 'PRECIO DEL CONSUMIDOR COLOMBIA', lwd= 3, col= 'darkblue')
summary(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -34.343 -2.338 9.048 10.089 20.953 44.724
boxplot(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`, main= "IMPORTACIONES COLOMBIA", horizontal = TRUE)
## Interpretación:
summary(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -27.1723 -0.2623 2.7559 6.6560 16.7726 48.3750
boxplot(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`, main= "EXPORTACIONES COLOMBIA", horizontal = TRUE)
## Interpretación:
boxplot(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`, main= "EXPORTACIONES COLOMBIA", horizontal = TRUE)
## Interpretación:
summary(INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -13.43872 -0.09083 1.36343 1.67634 3.98824 10.38251
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## [1] 0.3867776
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## [1] 0.5982074
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,UNEMPLOYMENT_RATE$`UNEMPLOYMENT RATE`)
## [1] -0.1308245
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,UNEMPLOYMENT_RATE$`UNEMPLOYMENT RATE`)
## [1] 0.1490973
AÑO_EXPOR_E_IMPORT_COLOMBIA <- c(IMPORTACIONES_Y_EXPORTACIONES_EMIS$AÑO)
IMPORTACIONES_COLOMBIA <- c(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`)
plot(data.frame(AÑO_EXPOR_E_IMPORT_COLOMBIA,IMPORTACIONES_COLOMBIA), type = "o", main = 'IMPORTACIONES COLOMBIA', lwd= 3, col= 'black')
summary(PRODUCER_CONSUMER_PRICE$`Consumer Price Index`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 2.018 5.031 14.898 14.659 23.200 33.714
summary(PRODUCER_CONSUMER_PRICE$`Producer Price Index`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -1.284 5.338 16.206 15.077 24.356 35.999
AÑO_PRECIO_CONSUM_PRODUC <- c(PRODUCER_CONSUMER_PRICE$AÑO)
PRECIO_CONSUMIDOR <- c(PRODUCER_CONSUMER_PRICE$`Consumer Price Index`)
plot(data.frame(AÑO_PRECIO_CONSUM_PRODUC,PRECIO_CONSUMIDOR), type = "o", main = 'PRECIO DEL CONSUMIDOR COLOMBIA', lwd= 3, col= 'darkblue')
## Interpretación:
AÑO_PRECIO_CONSUM_PRODUC <- c(PRODUCER_CONSUMER_PRICE$AÑO)
PRECIO_PRODUCTOR <- c(PRODUCER_CONSUMER_PRICE$`Producer Price Index`)
plot(data.frame(AÑO_PRECIO_CONSUM_PRODUC,PRECIO_CONSUMIDOR), type = "o", main = 'PRECIO DEL PRODUCTOR COLOMBIA', lwd= 3, col= 'red')
## Interpretación:
AÑO_PRECIO_CONSUM_PRODUC <- c(PRODUCER_CONSUMER_PRICE$AÑO)
PRECIO_PRODUCTOR <- c(PRODUCER_CONSUMER_PRICE$`Producer Price Index`)
plot(data.frame(AÑO_PRECIO_CONSUM_PRODUC,PRECIO_PRODUCTOR), type = "o", main = 'PRECIO DEL CONSUMIDOR COLOMBIA', lwd= 3, col= 'darkgreen')
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,PRODUCER_CONSUMER_PRICE$`Producer Price Index`)
## [1] 0.2736473
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,PRODUCER_CONSUMER_PRICE$`Producer Price Index`)
## [1] 0.2736473
summary(CAMBIOS_EXTERIORES$`Trade Balance: USD mn: Annual: Colombia`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -20298.0 -3122.2 -678.9 -2893.2 62.0 2682.4
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% IMPORTACIONES`,CAMBIOS_EXTERIORES$`Trade Balance: USD mn: Annual: Colombia`)
## [1] 0.2012412
summary(CAMBIOS_EXTERIORES$`Exchange Rate against USD: Period Avg: Annual: Colombia`)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 19.93 95.33 1088.87 1364.46 2305.20 4256.19
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,CAMBIOS_EXTERIORES$`Exchange Rate against USD: Period Avg: Annual: Colombia`)
## [1] 0.1768694
cor(PRODUCER_CONSUMER_PRICE$`Consumer Price Index`,CAMBIOS_EXTERIORES$`Trade Balance: USD mn: Annual: Colombia`)
## [1] 0.4056402
AÑO_PRECIO_CONSUM <- c(PRODUCER_CONSUMER_PRICE$AÑO)
IPC <- c(PRODUCER_CONSUMER_PRICE$`Consumer Price Index`)
AÑO_PRECIO_CAMBIOS <- c(CAMBIOS_EXTERIORES$`Trade Balance: USD mn: Annual: Colombia`)
BOT <- c(CAMBIOS_EXTERIORES$`Trade Balance: USD mn: Annual: Colombia`)
plot(data.frame(AÑO_PRECIO_CONSUM,IPC), type = "o", main = 'IPC COLOMBIA', lwd= 3, col= 'darkgreen')
plot(data.frame(AÑO_PRECIO_CAMBIOS,BOT ), type = "o", main = 'BALANCE OF CHANGE COLOMBIA', lwd= 3, col= 'darkgreen')