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(readr)
library(data.table)
##
## Attaching package: 'data.table'
## The following objects are masked from 'package:dplyr':
##
## between, first, last
library(kableExtra) #para mostrar "bonitas" las tablas en el documento
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
#Establecer directorio de trabajo
setwd("~/Metodos/bases de datos_comercio/Importaciones")
archivos_importados<- list.files()
lista_importacion<- lapply(archivos_importados,
FUN = read_delim,delim = "|",
col_names= c("pais",
"sac",
"anio",
"mes",
"valor_cif",
"kilogramos"),
col_types=cols(pais="c",
sac="c",
anio="d",
mes="d",
valor_cif="d",
kilogramos="d"),
skip=1)
#Emsamblar los archivos en un sólo dataframe
data_importaciones_mensuales<- bind_rows(lista_importacion)
#Mostrar las tablas en formato html (es para esta publicación)
data_importaciones_mensuales %>% head()%>% kable(caption="El Salvador: Base de Importaciones 2017-2022 (Junio)",
align="c") %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
El Salvador: Base de Importaciones 2017-2022 (Junio)
|
pais
|
sac
|
anio
|
mes
|
valor_cif
|
kilogramos
|
|
Groenlandia (Dinamarca)
|
2710199900
|
2017
|
2
|
317.40
|
8.16
|
|
Canada
|
0409000000
|
2017
|
3
|
673.18
|
836.10
|
|
Canada
|
0409000000
|
2017
|
4
|
171.17
|
600.00
|
|
Canada
|
0409000000
|
2017
|
5
|
330.09
|
660.00
|
|
Canada
|
0409000000
|
2017
|
6
|
149.46
|
437.50
|
|
Canada
|
0511100000
|
2017
|
3
|
18988.60
|
30.00
|
|
* Elaboración propia con base en datos del BCR
|