Carga de la data
library(dplyr)
library(dplyr)
library(readxl)
library(stringr)
options (scipen = 999)
load("C:/Users/walte/OneDrive/Escritorio/Metodos/data_comercio_exterior.RData")
nombre_archivo<-"C:/Users/walte/OneDrive/Escritorio/Metodos/nombres_iso_paises.xlsx"
nombres_iso_paises <- read_excel(nombre_archivo)
data_comercio_exterior %>%
left_join(nombres_iso_paises,
by=c("pais"="nom_pais_esp"))-> data_comercio_exterior
1-Reproducción de ejemplos vistos en clases sobre el uso de la libreria dplyr
Calculo de las exportaciones totales de El Salvador hacia Guatemala, para el periodo 2018-2021 (en millones de US$)
library(dplyr)
library(kableExtra)
data_comercio_exterior %>%
group_by(anio,iso_3) %>%
summarise(Exportaciones_totales =sum(valor_fob)) %>%
select("anio","Exportaciones_totales","iso_3")%>%
filter(anio %in% 2018:2021,iso_3 =="GTM")%>%
kable(caption ="Exportaciones totales de El Salvador hacia Guatemala,
para el periodo 2018-2021 (en millones de dolares)", digits = 4,align = "l")%>%
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Exportaciones totales de El Salvador hacia Guatemala, para el periodo 2018-2021 (en millones de dolares)
|
anio
|
Exportaciones_totales
|
iso_3
|
|
2018
|
847898082
|
GTM
|
|
2019
|
940258687
|
GTM
|
|
2020
|
851962565
|
GTM
|
|
2021
|
653207936
|
GTM
|
|
* Elaboración propia con base en datos del BCR
|
Totales anuales de las exportaciones e importaciones de El Salvador con Estados Unidos (2019-2021)
library(dplyr)
library(kableExtra)
data_comercio_exterior %>% group_by(anio,nom_pais_ingles,region) %>%
summarise('Total exportaciones'=sum(valor_fob)/1e6,
'Total importaciones'=sum(valor_cif)/1e6) %>%
select("anio","Total exportaciones","Total importaciones","nom_pais_ingles","region")%>%
filter(anio %in% 2019:2021,nom_pais_ingles== "United States of America")%>%
kable(caption ="Totales anuales de las exportaciones e importaciones,
de El Salvador hacia Estados Unidos,
para el periodo 2019-2021 (en millones de dolares)",
digits = 4,align = "l") %>%
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Totales anuales de las exportaciones e importaciones, de El Salvador hacia Estados Unidos, para el periodo 2019-2021 (en millones de dolares)
|
anio
|
Total exportaciones
|
Total importaciones
|
nom_pais_ingles
|
region
|
|
2019
|
2481.972
|
3447.507
|
United States of America
|
Américas
|
|
2020
|
1976.201
|
2677.450
|
United States of America
|
Américas
|
|
2021
|
1561.100
|
2269.001
|
United States of America
|
Américas
|
|
* Elaboración propia con base en datos del BCR
|
Saldo de la balanza comercial de El Salvador, con Costa Rica, para el periodo 2019-2021
library(dplyr)
library(kableExtra)
data_comercio_exterior%>%
group_by(anio,nom_pais_ingles,sub_region,region) %>%
summarise(Exportaciones_totales =sum(valor_fob)/1e6,
Importaciones_totales =sum(valor_cif)/1e6)%>%
mutate(saldo_bc=Exportaciones_totales-Importaciones_totales)%>%
select("anio","nom_pais_ingles","saldo_bc","sub_region","region")%>%
filter(anio %in% 2019:2021,nom_pais_ingles =="Costa Rica")%>%
kable(caption ="Saldo de la balanza comercial de El Salvador,
con Costa Rica, para el periodo 2019-2021", digits=4,align = "l") %>%
kable_styling(bootstrap_options = "striped", full_width = TRUE )%>%
add_footnote(label="Elaboración propia con base en datos del BCR",notation="symbol")
Saldo de la balanza comercial de El Salvador, con Costa Rica, para el periodo 2019-2021
|
anio
|
nom_pais_ingles
|
saldo_bc
|
sub_region
|
region
|
|
2019
|
Costa Rica
|
-43.0151
|
América Latina Y El Caribe
|
Américas
|
|
2020
|
Costa Rica
|
-70.4346
|
América Latina Y El Caribe
|
Américas
|
|
2021
|
Costa Rica
|
-63.6289
|
América Latina Y El Caribe
|
Américas
|
|
* Elaboración propia con base en datos del BCR
|
2-Generé una función personalizada que Obtenga un ranking anual de los “K” principales socios comerciales de El Salvador, para el periodo (año inicio-año final).
Generando la función de ranking de socios comerciales
library(dplyr)
library(kableExtra)
options(scipen =999999)
funcion_consulta_ranking<-function(anio_inicio,anio_final,ranking_k){
data_comercio_exterior %>%
filter(anio>=anio_inicio,anio<=anio_final) ->data_ranking
data_ranking %>%
group_by(anio, iso_3) %>%
summarise(total = sum(valor_fob)) %>%
mutate(percent = round(prop.table(total) * 100, 2)) %>%
slice_max(n =ranking_k , order_by = total) %>%
as.data.frame() %>%
group_by(anio) %>%
mutate(ranking = row_number(),
data = paste(iso_3, "|", percent, sep = ""))%>%
select(anio, data, ranking) %>%
as.data.frame() -> reporte_ranking
return(reporte_ranking)
}
Probando función para los 4 principales socios comerciales de El Salvador (2018-2021)
library(tidyr)
library(kableExtra)
funcion_consulta_ranking(2018,2021,ranking_k = 4)%>%
pivot_wider(names_from = ranking,values_from = data)->aplicar_formato_tabla
pie_pag<-"Elaboración propia con base en datos del BCR"
aplicar_formato_tabla %>%
kable(caption = paste("Top","4","de Exportaciones periodo",2018,2021))%>%
add_footnote(label = pie_pag) %>%
kable_styling(bootstrap_options ="striped", full_width =TRUE)
Top 4 de Exportaciones periodo 2018 2021
|
anio
|
1
|
2
|
3
|
4
|
|
2018
|
USA|44.07
|
HND|15.34
|
GTM|14.36
|
NIC|6.87
|
|
2019
|
USA|42.03
|
GTM|15.92
|
HND|15.9
|
NIC|6.66
|
|
2020
|
USA|39.18
|
GTM|16.89
|
HND|15.44
|
NIC|7.26
|
|
2021
|
USA|40.59
|
GTM|16.98
|
HND|15.82
|
NIC|6.99
|
|
a Elaboración propia con base en datos del BCR
|
Probando función para los 10 principales socios comerciales de El Salvador (2018-2020)
library(tidyr)
library(kableExtra)
funcion_consulta_ranking(2018,2020,ranking_k = 10)%>%
pivot_wider(names_from = ranking,values_from = data)->aplicar_formato_tabla
pie_pag<-"Elaboración propia con base en datos del BCR"
aplicar_formato_tabla %>%
kable(caption = paste("Top","10","de Exportaciones periodo",2018,2020))%>%
add_footnote(label = pie_pag)%>%
kable_styling(bootstrap_options ="striped", full_width =TRUE)
Top 10 de Exportaciones periodo 2018 2020
|
anio
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
2018
|
USA|44.07
|
HND|15.34
|
GTM|14.36
|
NIC|6.87
|
CRI|4.39
|
MEX|2.44
|
PAN|2.09
|
DOM|1.65
|
CHN|1.45
|
ESP|0.82
|
|
2019
|
USA|42.03
|
GTM|15.92
|
HND|15.9
|
NIC|6.66
|
CRI|4.46
|
MEX|2.54
|
PAN|2.03
|
DOM|1.75
|
CAN|1.09
|
CHN|0.88
|
|
2020
|
USA|39.18
|
GTM|16.89
|
HND|15.44
|
NIC|7.26
|
CRI|4.65
|
MEX|2.46
|
PAN|1.89
|
DOM|1.78
|
CHN|1.54
|
KOR|1.21
|
|
a Elaboración propia con base en datos del BCR
|
Probando función para los 7 principales socios comerciales de El Salvador (2021)
library(tidyr)
library(kableExtra)
funcion_consulta_ranking(2021,2021,ranking_k = 7)%>%
pivot_wider(names_from = ranking,values_from = data)->aplicar_formato_tabla
pie_pag<-"Elaboración propia con base en datos del BCR"
aplicar_formato_tabla %>%
kable(caption = paste("Top","7","de Exportaciones periodo",2021))%>%
add_footnote(label =pie_pag)%>%
kable_styling(bootstrap_options ="striped", full_width =TRUE)
Top 7 de Exportaciones periodo 2021
|
anio
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
|
2021
|
USA|40.59
|
GTM|16.98
|
HND|15.82
|
NIC|6.99
|
CRI|4.04
|
MEX|2.15
|
KOR|1.98
|
|
a Elaboración propia con base en datos del BCR
|