CARGATR BASE DE DATOS SIN ACTUALIZAR
load("C:/Users/ileom/OneDrive/Escritorio/Comercio MA15003/data_comercio_exterior.RData")##TABLAA DE IMPORTACIONES ACTUALIZADA AGOSTO
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/ileom/OneDrive/Escritorio/ACTUALIZACION BASE COMERCIO AGOSTO20/M")
archivos_importar<-list.files()
lista_importacion<-lapply(archivos_importar,
FUN= read_delim,delim="|",
col_names=c("pais",
"sac",
"anio",
"mes",
"valor_cif",
"kilogramos"),
col_types=c(pais="c",
sac="c",
mes="d",
valor_cif="d",
kilogramos="d"),
skip=1)
data_importaciones_actualizada<-bind_rows(lista_importacion)
data_importaciones_actualizada %>% head() %>% kable(caption="El Salvador: Base de Importaciones 2020 (Agosto)", align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| pais | sac | anio | mes | valor_cif | kilogramos |
|---|---|---|---|---|---|
| Canada | 0511100000 | 2020 | 8 | 15416.16 | 59.00 |
| Canada | 0713334000 | 2020 | 8 | 2250.88 | 9988.00 |
| Canada | 0713400000 | 2020 | 8 | 662.02 | 381.60 |
| Canada | 0811900000 | 2020 | 8 | 24056.86 | 6050.04 |
| Canada | 1101000000 | 2020 | 8 | 377.68 | 500.00 |
| Canada | 1207500000 | 2020 | 8 | 61635.45 | 58512.00 |
| * Elaboración propia con base en datos del BCR |
##TABLA DE EXPORTACIONES ACTUALIZADA
library(readr)
library(dplyr)
library(kableExtra)
setwd("C:/Users/ileom/OneDrive/Escritorio/ACTUALIZACION BASE COMERCIO AGOSTO20/X")
archivos_importar<-list.files()
lista_exportacion<-lapply(archivos_importar,
FUN = read_delim,delim="|",
col_names=c("pais",
"sac",
"anio",
"mes",
"valor_fob",
"kilogramos"),
col_types=cols(pais="c",
sac="c",
anio="d",
mes="d",
valor_cif="d",
kilogramos="d"),
skip=1)
data_exportaciones_actualizada<-bind_rows(lista_exportacion)
data_exportaciones_actualizada %>% head() %>% kable(caption="El Salvador:Base de Exportaciones 2020 (Agosto)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| pais | sac | anio | mes | valor_fob | kilogramos |
|---|---|---|---|---|---|
| Canada | 0602100000 | 2020 | 8 | 6180.94 | 157.06 |
| Canada | 0811900000 | 2020 | 8 | 125.58 | 40.70 |
| Canada | 0901113000 | 2020 | 8 | 128349.23 | 27996.14 |
| Canada | 0904119000 | 2020 | 8 | 0.70 | 0.36 |
| Canada | 0910910000 | 2020 | 8 | 702.00 | 95.33 |
| Canada | 1207990000 | 2020 | 8 | 700.00 | 238.33 |
| * Elaboración propia con base en datos del BCR |
##BASE COMERCIO EXTERIOR actualizada 2017 2020
library(tidyr)
data_importaciones_actualizada%>% full_join(
data_exportaciones_actualizada,
by=c("pais","sac","anio","mes"),
suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior_actualizada
data_comercio_exterior_actualizada %>% replace_na(list(valor_cif=0,
valor_fob=0,
kilogramos_importaciones=0,
kilogramos_exportaciones=0)) %>%
arrange(pais,anio,mes,sac) ->data_comercio_exterior_actualizada
data_comercio_exterior_actualizada %>% head() %>%
kable(caption="Base de Comercio Exterior agosto 2020",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| pais | sac | anio | mes | valor_cif | kilogramos_importaciones | valor_fob | kilogramos_exportaciones |
|---|---|---|---|---|---|---|---|
| Afganistan | 4202190000 | 2020 | 8 | 18.88 | 0.68 | 0 | 0 |
| Afganistan | 4202990000 | 2020 | 8 | 7.55 | 0.27 | 0 | 0 |
| Afganistan | 6103109000 | 2020 | 8 | 75.52 | 2.73 | 0 | 0 |
| Afganistan | 6110900000 | 2020 | 8 | 75.52 | 2.73 | 0 | 0 |
| Afganistan | 6117100000 | 2020 | 8 | 9.06 | 0.33 | 0 | 0 |
| Afganistan | 6204490000 | 2020 | 8 | 113.28 | 4.10 | 0 | 0 |
| * Elaboración propia con base en datos del BCR |
data_comercio_exterior_actualizacion <- rbind(data_comercio_exterior,data_comercio_exterior_actualizada)
data_comercio_exterior_actualizacion %>% head() %>%
kable(caption="Base de Comercio Exterior 2017-2020 (agosto)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()| pais | sac | anio | mes | valor_cif | kilogramos_importaciones | valor_fob | kilogramos_exportaciones |
|---|---|---|---|---|---|---|---|
| Afganistan | 4010390000 | 2017 | 4 | 58.06 | 0.92 | 0 | 0 |
| Afganistan | 6812999000 | 2017 | 4 | 88.38 | 1.39 | 0 | 0 |
| Afganistan | 8487900000 | 2017 | 4 | 20.93 | 0.33 | 0 | 0 |
| Afganistan | 8511800000 | 2017 | 4 | 98.93 | 1.56 | 0 | 0 |
| Afganistan | 8708930000 | 2017 | 4 | 62.18 | 0.98 | 0 | 0 |
| Afganistan | 9028200000 | 2017 | 4 | 130.06 | 2.05 | 0 | 0 |
| * Elaboración propia con base en datos del BCR |
##Verificando
data_comercio_exterior_actualizacion%>% tail()%>% kable(caption="El Salvador: Base de Comercio Exterior 2017-2020 (agosto)",
align="c") %>% kable_styling()| pais | sac | anio | mes | valor_cif | kilogramos_importaciones | valor_fob | kilogramos_exportaciones |
|---|---|---|---|---|---|---|---|
| Viet-Nam | 9505100000 | 2020 | 8 | 2293.87 | 636.30 | 0 | 0 |
| Viet-Nam | 9506290000 | 2020 | 8 | 350.00 | 30.67 | 0 | 0 |
| Viet-Nam | 9506620000 | 2020 | 8 | 974.35 | 23.50 | 0 | 0 |
| Viet-Nam | 9603210000 | 2020 | 8 | 10069.24 | 2058.92 | 0 | 0 |
| Viet-Nam | 9609109000 | 2020 | 8 | 957.45 | 164.40 | 0 | 0 |
| Yugoeslavia -Nueva Organizacio | 4011400000 | 2020 | 8 | 2308.00 | 381.75 | 0 | 0 |
##Guardando el objeto
#Guardado del objeto data_comercio_exterior_actualizado
save(data_comercio_exterior_actualizacion,file = "C:/Users/ileom/OneDrive/Escritorio/ACTUALIZACION BASE COMERCIO AGOSTO20/data_comercio_exterior_actualizacion.RData")