El presente informe trata sobre la caracterización de los flujos de comercio internacional de mercancías para El Salvador, sus principales socios, productos con mayor importancia en el comercio, y diversificación de destinos.

Librerías

library(dplyr)
library(tidyr)
library(stringr)
library(base)
library(kableExtra)
library(flextable)
library(ggplot2)
library(treemap)
library(RColorBrewer)
library(comtradr)
library(officer)

Importación de datos

Los datos utilizados provienen de la base de datos mundial de comercio de mercancías UN COMTRADE. Una limitante en el acceso a los datos, es que sin una licencia, no es posible descargar datos a nivel de partida o subpartida. Por ello el análisis se realiza a nivel de capítulo arancelario del Sistema Armonizado.

#Exportaciones salvadoreñas
El_Salvador_export_HS2 <- ct_search(reporters = "El Salvador", 
                                    type = "goods", 
                                    commod_codes = "AG2", 
                                    freq = "annual",
                                    partners = "All", 
                                    trade_direction = "exports", 
                                    start_date = '2020', 
                                    end_date = '2021') 

#Importaciones salvadoreñas
El_Salvador_import_HS2 <- ct_search(reporters = "El Salvador", 
                                    type = "goods", 
                                    commod_codes = "AG2", 
                                    freq = "annual",
                                    partners = "All", 
                                    trade_direction = "imports", start_date = '2020', 
                                    end_date = '2021') 

#Balanza comercial salvadoreñas
El_Salvador_balanza_HS2 <- rbind(El_Salvador_import_HS2, 
                                 El_Salvador_export_HS2)

Principales socios

En el presente gráfico se muestran los principales socios salvadoreños para las exportaciones e importaciones durante 2021.

El_Salvador_balanza_HS2  %>% 
  filter(partner != "World", year=="2021") %>%  
  group_by(trade_flow, partner)%>% 
  summarise(Valor=sum(trade_value_usd)) %>% 
  treemap(index = c("trade_flow","partner"),
vSize = "Valor", vColor = "partner", 
range = c(0,50),
             fontsize.labels=c(20, 10),
             title = "El Salvador. Socios comerciales en 2021",
             mirror.x = T,
             palette = brewer.pal(n=5,"Paired"),
             border.col = "grey")
## `summarise()` has grouped output by 'trade_flow'. You can override using the `.groups` argument.
## Warning in if (class(try(col2rgb(palette), silent = TRUE)) == "try-error")
## stop("color palette is not correct"): la condición tiene longitud > 1 y sólo
## el primer elemento será usado

Principales productos comerciados

De igual forma, en la siguiente gráfica se muestran los capítulos del Sistema Armonizado y el comercio salvadoreño.

El_Salvador_balanza_HS2  %>% filter(partner == "World" & year=="2021") %>% 
  transform(commodity=str_sub(commodity, 1L, 30L)) %>% 
  group_by(trade_flow, commodity)%>%
 summarise(Valor=sum(trade_value_usd)) %>%
treemap(index = c("trade_flow",  "commodity"),
vSize = "Valor", vColor = "commodity",
range = c(0,50),
             fontsize.labels=c(20, 10),
             title = "El Salvador. Productos comerciados en el año 2021",
             mirror.x = T,
             palette = brewer.pal(n=3,"Paired"),
             border.col = "grey")

Principales exportaciones:

Top_Exportaciones<-El_Salvador_export_HS2 %>% 
  filter(year=="2021" &  partner=="World") %>% 
  transform(trade_value_usd=round(trade_value_usd/1000000),1) %>%  
  arrange(desc(trade_value_usd)) %>% slice_max(trade_value_usd, n=5) %>% 
  select(commodity_code, commodity, trade_value_usd) %>% 
  transform(commodity=str_sub(commodity, 1L, 30L)) %>%   
  kable(caption = "Principales capítulos arancelarios exportados por El Salvador al año 2021", 
        align = 'c',  
        digits = round(1), 
        col.names = c("Capítulo", "Descripción", "Valor en millones de US$")) %>% 
  kable_classic() %>% kable_styling(font_size=14,
full_width = TRUE)%>%

 kable_paper(full_width = F, "striped") %>%
  column_spec(2, width = "30em", background = "#bdc9e1", bold = T,  color = "Grid") %>%
add_footnote(c("Fuente= Elaboración propia con datos de UN COMTRADE"), notation = "none")

Top_Exportaciones
Principales capítulos arancelarios exportados por El Salvador al año 2021
Capítulo Descripción Valor en millones de US$
61 Apparel and clothing accessori 1962
39 Plastics and articles thereof 519
48 Paper and paperboard; articles 386
85 Electrical machinery and equip 369
17 Sugars and sugar confectionery 316
Fuente= Elaboración propia con datos de UN COMTRADE

#Tasas de crecimiento A modo de conocer los capítulos arancelarios con mayor crecimiento en comparación a 2020, se muestra el siguiente resumen.

Comercio_crecimiento  <- El_Salvador_balanza_HS2 %>%  
  filter( partner=="World") %>%  
  transform(commodity=str_sub(commodity, 1L, 30L), 
            year=as.factor(year)) %>% 
  transform(trade_value_usd=round(trade_value_usd/1000000),1) %>% 
  arrange(trade_flow, commodity, year) %>%
  group_by(trade_flow, commodity_code, commodity) %>%
    mutate(Crecimiento_2020_2021=round(trade_value_usd-lag(trade_value_usd), 1)) %>% 
  group_by(trade_flow, year) %>%
arrange(desc(Crecimiento_2020_2021)) %>% 
  slice_max(Crecimiento_2020_2021, n=5) %>% 
  select(trade_flow, 
         commodity_code, 
         commodity, 
         trade_value_usd, 
         Crecimiento_2020_2021) 
## Adding missing grouping variables: `year`
# Formato table

Comercio_crecimiento %>% as.data.frame() %>%
  format(decimal.mark=".", big.mark = ",") %>%
  flextable() %>% 
  align_text_col(Comercio_crecimiento$trade_value_usd, align = "center", header = TRUE) %>%
   align_text_col(Comercio_crecimiento$trade_value_usd, align = "center", header = TRUE) %>%
  hline(i = seq(5,10,by=5), part = "body",
        border = fp_border(color = "grey70", width = 2) ) %>%
  merge_v( j = c("year", "trade_flow") ) %>% 
  set_header_labels(year= "Año", 
                    trade_flow="Flujo", 
                    commodity_code ="Capítulo", 
                    commodity="Descripción", 
                    trade_value_usd="Valor exportado, millones de US$", 
                    Crecimiento_2020_2021="Crecimiento 2020-2021 (millones de USD)") %>% 
  set_caption("Capítulos con mayor crecimiento 2020-2021") %>%
  add_footer_lines("Fuente: Elaboración con datos de UN COMTRADE") %>%
  fix_border_issues() %>%
  autofit()
## Warning in if (footer) {: la condición tiene longitud > 1 y sólo el primer
## elemento será usado

## Warning in if (footer) {: la condición tiene longitud > 1 y sólo el primer
## elemento será usado

Diversificación de los destinos

La diversificación de la oferta exportable se analizó utilizando el indice Herfindahl, cuya expresión matemática es la siguiente:

\[ IH=\sum_{i=1}^N s_i^2\] Donde:

\(s\) , representa la participación del mercado (\(i\)) en las exportacicones salvadoreñas. La medida de concentración que cuantifica el Índice Herfindahl supone que, entre mas elevado sea el valor numérico mas concentrado está en este caso los destinos de exportación.

Durán & Alvarez (2008) consideran válido tomar como parámetros los siguientes:

\(IH≤0.10\), diversificado

\(0.10 <IH≤0.18\), concentración moderada

\(0.18<IH≤1\), alta concentración

Indice Herfindahl aplicado a los flujos globales de comercio salvadoreño

Estimación del Índice Herfindahl

IHH<- El_Salvador_balanza_HS2 %>%  
  filter( partner!="World") %>%  
  transform(year=as.factor(year)) %>%
  group_by(trade_flow, year, partner) %>% 
  summarise(Valor=sum(trade_value_usd)) %>% 
  mutate(S2= (round(Valor / sum(Valor),5))^2) %>% group_by(year, trade_flow) %>% 
  summarise(IH=sum(S2))

Representación gráfica 2020-2021

Índice Herfindahl aplicado a las partidas arancelarias en el comercio salvadoreño

IHH_HS2<- El_Salvador_balanza_HS2 %>%  
  filter( partner!="World") %>%  
  transform(commodity=str_sub(commodity, 1L, 30L), 
            year=as.factor(year)) %>%
  group_by(trade_flow, year,commodity, partner) %>% 
  summarise(Valor=sum(trade_value_usd),
            Volumen=sum(netweight_kg)) %>% 
  mutate(S2= (round(Valor / sum(Valor),5))^2) %>% 
  group_by(trade_flow, year, commodity) %>% 
  summarise(IH=sum(S2), Socios= n())
## `summarise()` has grouped output by 'trade_flow', 'year', 'commodity'. You can override using the `.groups` argument.
## `summarise()` has grouped output by 'trade_flow', 'year'. You can override using the `.groups` argument.
IHH_HS2

Partidas arancelarias con menor valor del IH, y cambios entre 2020-2021

Top_IH<-IHH_HS2  %>% 
  pivot_wider(names_from = year, values_from = c(IH, Socios)) %>% 
  mutate(`Variación de IH`= IH_2021-IH_2020, 
         `Variación del número de socios`= Socios_2021- Socios_2020 ) %>% 
  arrange(desc(`Variación del número de socios`)) 

Top_IH_HS4  <- Top_IH %>% group_by(trade_flow) %>% 
  slice_max(order_by = `Variación del número de socios`, n=5)

Top_IH_HS4%>% select(-trade_flow)  %>% 
  kable(title="Top 5. Capítulos arancelarios con mejora en el número de socios", 
        align = 'c',  digits = round(2), 
        col.names = c("trade_flow", 
                      "Capítulo arancelario", 
                      "IH 2021", 
                      "IH 2020", 
                      "Número de mercados 2021", 
                      "Número de mercados 2020", 
                      "Variación del IH 2020-2021", 
                      "Variación del número de socios 2020-2021")) %>% 
  kable_classic() %>% 
  kable_styling(font_size=14,full_width = TRUE) %>% 
  pack_rows(
  index = c("Exportaciones" = 5, 
            "Importaciones" = 5)) %>%

# kable_paper(full_width = F, "striped") %>%
#  column_spec(2, width = "75em", background = "#bdc9e1", bold = T,  color = "Grid") %>% 
#  collapse_rows(columns = 1:2) %>%
add_footnote(c("Fuente= Elaboración con datos de UN COMTRADE"), notation = "none")
## Adding missing grouping variables: `trade_flow`
trade_flow Capítulo arancelario IH 2021 IH 2020 Número de mercados 2021 Número de mercados 2020 Variación del IH 2020-2021 Variación del número de socios 2020-2021
Exportaciones
Export Railway, tramway locomotives, 0.93 0.21 3 16 -0.71 13
Export Nuclear reactors, boilers, mac 0.16 0.17 43 53 0.01 10
Export Soap, organic surface-active a 0.19 0.16 19 27 -0.03 8
Export Paper and paperboard; articles 0.20 0.20 45 51 0.00 6
Export Tools, implements, cutlery, sp 0.15 0.15 37 43 0.00 6
Importaciones
Import Glass and glassware 0.14 0.19 61 79 0.05 18
Import Vehicles; other than railway o 0.12 0.12 88 102 0.00 14
Import Iron or steel articles 0.14 0.15 84 95 0.01 11
Import Fruit and nuts, edible; peel o 0.16 0.15 28 37 -0.01 9
Import Tools, implements, cutlery, sp 0.21 0.22 69 78 0.01 9
Fuente= Elaboración con datos de UN COMTRADE