## New names:
## • `0` -> `0...18`
## • `0` -> `0...19`
## • `0` -> `0...20`
## • `0` -> `0...21`
## • `0` -> `0...22`
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(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$`% IMPORTACIONES`,UNEMPLOYMENT_RATE$`UNEMPLOYMENT RATE`)
## [1] -0.1308245
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)
### 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.
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,UNEMPLOYMENT_RATE$`UNEMPLOYMENT RATE`)
## [1] 0.1490973
cor(IMPORTACIONES_Y_EXPORTACIONES_EMIS$`% EXPORTACIONES`,INDUSTRIAL_PRODUCTION_INDEX$`Industrial production Index`)
## [1] 0.5982074
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')
AÑO_PRECIO_TRADE <- c(CAMBIOS_EXTERIORES$AÑO)
BOT <- c(CAMBIOS_EXTERIORES$`Trade Balance: USD mn: Annual: Colombia`)
plot(data.frame(AÑO_PRECIO_TRADE,BOT ), type = "o", main = 'TRADE BALANCE', lwd= 3, col= 'darkgreen')
AÑO_PRECIO_CAMBIOS <- c(CAMBIOS_EXTERIORES$AÑO)
EXCHANGE_RATE <- c(CAMBIOS_EXTERIORES$`Exchange Rate against USD: Period Avg: Annual: Colombia`)
plot(data.frame(AÑO_PRECIO_CAMBIOS,BOT ), type = "o", main = 'EXCHANGE RATE COLOMBIA', lwd= 3, col= 'darkgreen')