Cargar la base
source("~/Metodos/bases de datos_comercio/base_comercio_new/funciones_comercio_exterior.R")
Clave 1
1. Calcule las exportaciones totales de El Salvador hacia la región
de África Sub-Sahariana para el período 2019-2020 (en millones de
US$)
library(kableExtra)
library(dplyr)
library(readxl)
data_comercio_exterior %>%
select("anio", "valor_fob", "sub_region") %>%
filter(sub_region== "Africa Sub-Sahariana", anio %in% 2019:2020, valor_fob>0) %>%
group_by(anio) %>%
summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6) %>%
head() %>%
kable(caption = "Exportaciones totales de El Salvador a África Sub-Sahariana 2019-2020") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Exportaciones totales de El Salvador a África Sub-Sahariana 2019-2020
|
anio
|
Total Exportaciones MM US$
|
|
2019
|
2.452792
|
|
2020
|
1.503626
|
|
* Elaboración propia con base en datos del BCR
|
2. Obtenga el saldo de Balanza Comercial de El Salvador, con “Asia
Sudoriental”, para el período de 2017-2019, en millones de US$.
library(kableExtra)
data_comercio_exterior %>%
filter(sub_region=="Asia Sudoriental", anio %in% 2017:2019) %>%
group_by(anio) %>%
summarise(`Total Exportaciones MM US$`=sum(valor_fob)/1e6,
`Total Importaciones MM US$`=sum(valor_cif)/1e6,
`Balanza Comercial El Salvador-Asia Sudoriental MM $`=`Total Exportaciones MM US$`-`Total Importaciones MM US$`) %>%
head() %>%
kable(caption = "Exportaciones totales de El Salvador a Asia Sudoriental 2017-2019") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Exportaciones totales de El Salvador a Asia Sudoriental 2017-2019
|
anio
|
Total Exportaciones MM US$
|
Total Importaciones MM US$
|
Balanza Comercial El Salvador-Asia Sudoriental MM $
|
|
2017
|
73.591111
|
269.4838
|
-195.8927
|
|
2018
|
16.609646
|
280.8837
|
-264.2740
|
|
2019
|
4.608928
|
262.5498
|
-257.9409
|
|
* Elaboración propia con base en datos del BCR
|
3. Por cada dólar exportado a la región Sudamericana, en el año
2019, ¿Cuánto se importó?
data_comercio_exterior%>%
filter(anio==2019,region_intermedia=="Sudamerica", valor_fob>0,valor_cif>0)%>%
group_by(anio)%>%
summarise(`exportaciones MM USD`=sum(valor_fob)/1e6,`importaciones MM USD`=sum(valor_cif)/1e6)%>%
mutate(Ratio =`importaciones MM USD` /`exportaciones MM USD`)%>%
select("anio","exportaciones MM USD","importaciones MM USD","Ratio")%>%head()%>%kable(caption = "Cantidad importada por cada dolar exportado a la región Sudamericana.", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Cantidad importada por cada dolar exportado a la región Sudamericana.
|
anio
|
exportaciones MM USD
|
importaciones MM USD
|
Ratio
|
|
2019
|
11.49066
|
25.29053
|
2.200963
|
|
a Elaboración propia con base en datos del BCR
|
4. Calcule el indicador de Balassa de El Salvador, con México,
Estados Unidos y Canadá durante el periodo 2017-2020, para el capitulo
“01” del SAC
resultado_balassa = data.frame("años"=2017:2020,
"Balassa_MEX"= sapply(X=2017:2020,
FUN= indicadores_Balassa_capitulo,
codigo_pais= 484,
capitulo="01"),
"Balassa_USA"= sapply(X=2017:2020,
FUN= indicadores_Balassa_capitulo,
codigo_pais= 840,
capitulo="01"),
"Balassa_CAN"= sapply(X=2017:2020,
FUN= indicadores_Balassa_capitulo,
codigo_pais=124,
capitulo="01"))
resultado_balassa%>%head()%>%kable(caption = "Índice de Balassa con USA, CAN, MEX. Capítulo 01. 2017-2020", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
Índice de Balassa con USA, CAN, MEX. Capítulo 01. 2017-2020
|
años
|
Balassa_MEX
|
Balassa_USA
|
Balassa_CAN
|
|
2017
|
-0.5761364
|
0.3597730
|
0.3953833
|
|
2018
|
-0.8244130
|
0.3228978
|
0.6144287
|
|
2019
|
-0.8980952
|
0.4015546
|
0.1885152
|
|
2020
|
-0.9775297
|
0.7034690
|
0.0410544
|
|
a Elaboración propia con base en datos del BCR
|
Otra clave 2
1. Calcule el indicador de IVCR de El Salvador, con México, Estados
Unidos y Canadá, durante el periodo 2017-2020, para el capitulo “01” del
SAC.
resultado_IVCR = data.frame("años"=2017:2020,
"IVCR_USA"= sapply(X=2017:2020,
FUN= indicadores_IVCR_capitulo,
codigo_pais=840,
capitulo="01"),
"IVCR_CAN"= sapply(X=2017:2020,
FUN= indicadores_IVCR_capitulo,
codigo_pais=124,
capitulo="01"),
"IVCR_MEX"= sapply(X=2017:2020,
FUN= indicadores_IVCR_capitulo,
codigo_pais=484,
capitulo="01"))
resultado_IVCR%>%head()%>%kable(caption = "IVCR con USA, CAN, MEX. Capítulo 01. 2017-2020", aling="l")%>% add_footnote(label="Elaboración propia con base en datos del BCR")%>%kable_material(html_font = "sans_serif")
IVCR con USA, CAN, MEX. Capítulo 01. 2017-2020
|
años
|
IVCR_USA
|
IVCR_CAN
|
IVCR_MEX
|
|
2017
|
-0.1268112
|
0.0025811
|
-0.0006366
|
|
2018
|
-0.0997253
|
0.0000473
|
-0.0047801
|
|
2019
|
-0.0880920
|
0.0003483
|
-0.0014925
|
|
2020
|
-0.0841604
|
-0.0027953
|
-0.0013685
|
|
a Elaboración propia con base en datos del BCR
|
2. Por cada dólar exportado a la región Centroamericana , en el
periodo 2017-2019, ¿Cuánto se importo? (resultado por año
data_comercio_exterior%>%
filter(anio %in% 2017:2019,region_intermedia=="Centroamérica", valor_fob>0,valor_cif>0)%>%
group_by(anio)%>%
summarise(`Xijt MM USD_1`=sum(valor_fob)/1e6,
`Mijt MM USD_1`=sum(valor_cif)/1e6)%>%
mutate(Ratio_1 =`Mijt MM USD_1` /`Xijt MM USD_1`)%>%
select("anio","Xijt MM USD_1","Mijt MM USD_1","Ratio_1")%>%head()%>%kable(caption = "Cantidad importada por cada dolar exportado a la región Centroamericana. 2017-2019", aling="l")%>% kable_minimal() %>% add_footnote(label="Elaboración propia con base en datos del BCR", notation = "symbol")%>%kable_styling()
Cantidad importada por cada dolar exportado a la región Centroamericana.
2017-2019
|
anio
|
Xijt MM USD_1
|
Mijt MM USD_1
|
Ratio_1
|
|
2017
|
1444.992
|
1395.353
|
0.9656476
|
|
2018
|
1620.830
|
1570.746
|
0.9690997
|
|
2019
|
1734.932
|
1883.314
|
1.0855260
|
|
* Elaboración propia con base en datos del BCR
|
3- Obtenga el Saldo de la balanza comercial de El Salvador, con el
“Caribe”, para el periodo 2017-2019, (en millones de US$)
data_comercio_exterior %>%
filter(region_intermedia=="Caribe",anio %in% 2017:2019) %>%
group_by(anio) %>%
summarise(`Total Exportaciones Caribe MM US$`=sum(valor_fob)/1e6,
`Total Importaciones Caribe MM US$`=sum(valor_cif)/1e6,
`Balanza Comercial El Salvador con Caribe MM $`=`Total Exportaciones Caribe MM US$`-`Total Importaciones Caribe MM US$`) %>%
head() %>%
kable(caption = "Balanza Comercial El Salvador con el Caribe de 2017-2019") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Balanza Comercial El Salvador con el Caribe de 2017-2019
|
anio
|
Total Exportaciones Caribe MM US$
|
Total Importaciones Caribe MM US$
|
Balanza Comercial El Salvador con Caribe MM $
|
|
2017
|
150.1824
|
46.04799
|
104.1345
|
|
2018
|
172.1331
|
34.04536
|
138.0877
|
|
2019
|
169.1371
|
21.61247
|
147.5247
|
|
* Elaboración propia con base en datos del BCR
|
4- Calcule las exportaciones totales de El Salvador hacia la región
Norte De Europa, para el periodo 2019-2020 son (en millones de US$)
data_comercio_exterior %>%
select("anio","valor_fob","sub_region") %>%
filter(sub_region=="Norte De Europa",anio %in% 2019:2020, valor_fob>0) %>%
group_by(anio) %>%
summarise(`Total de Exportaciones con Norte de Europa, millones US$`=sum(valor_fob)/1e6) %>%
head() %>%
kable(caption = "Exportaciones totales El Salvador con Norte de Europa de 2017-2020") %>% kable_minimal() %>%
add_footnote(label="Elaboración propia con base en datos del BCR",
notation="symbol") %>% kable_styling()
Exportaciones totales El Salvador con Norte de Europa de 2017-2020
|
anio
|
Total de Exportaciones con Norte de Europa, millones US$
|
|
2019
|
19.80854
|
|
2020
|
12.15218
|
|
* Elaboración propia con base en datos del BCR
|