#Cargar Paquetes
library(readr)
library(dplyr)
library(data.table)
library(kableExtra) #para mostrar "bonitas" las tablas en el documento
#Establecer directorio de trabajo
setwd("~/Metodos/bases de datos_comercio/Exportaciones")
#Nombres de los archivos en el directorio de trabajo (sólo deben estar los archivos a leer)
archivos_importar <- list.files()
#Leer los archivos del directorio de trabajo
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
)
#Emsamblar los archivos en un sólo dataframe
data_exportaciones <- bind_rows(lista_exportacion)
#Mostrar las tablas en formato html (es para esta publicación)
data_exportaciones %>% head() %>% kable(caption = "Base de Exportaciones 2017-2022 (Junio)", align = "c") %>%
add_footnote(label = "Elaboración propia con base en datos del BCR",
notation = "symbol") %>% kable_styling()
Base de Exportaciones 2017-2022 (Junio)
|
pais
|
sac
|
anio
|
mes
|
valor_fob
|
kilogramos
|
|
Canada
|
0106190000
|
2017
|
2
|
100.00
|
26.0
|
|
Canada
|
0106190000
|
2017
|
6
|
580.00
|
10.0
|
|
Canada
|
0106900000
|
2017
|
1
|
3491.55
|
11.0
|
|
Canada
|
0106900000
|
2017
|
2
|
4791.20
|
14.0
|
|
Canada
|
0106900000
|
2017
|
3
|
5516.00
|
17.0
|
|
Canada
|
0106900000
|
2017
|
4
|
5019.50
|
14.5
|
|
* Elaboración propia con base en datos del BCR
|