1. API OCDE

Haciendo uso de la Api de la Organización para la Cooperación y el Desarrollo Económico (OCDE), accede la base de datos de Indicadores Económicos Clave (KEI) y presente el índice de producción de construcción para Colombia, España, Sudáfrica, Estados Unidos, y Turquía desde el año 2020 al dato mas reciente y muestra los resultados en formato tabular y haciendo uso de una gráfica.

library(dplyr)
library(tibble)
library(rsdmx)
library(kableExtra)

# Se cargan los datos
url1<- "https://sdmx.oecd.org/public/rest/data/OECD.SDD.STES,DSD_KEI@DF_KEI,4.0/.M.PRVM.IX.F..?startPeriod=2020-01&dimensionAtObservation=AllDimensions"

# Se adjunta otro enlace en el cual se buscó de forma pormenorizada los datos de los países, sin embargo, Turquia no estaba disponible, mientras que de Colombia no hay datos
#https://sdmx.oecd.org/public/rest/data/OECD.SDD.STES,DSD_KEI@DF_KEI,4.0/ZAF+ESP+USA+COL.M.PRVM.IX.F..?startPeriod=2020-01&endPeriod=2024-12&dimensionAtObservation=AllDimensions
Indice_construccion<- readSDMX(url1)

Indice_construccion<-Indice_construccion %>% as.tibble()

# Se construye la tabla 

Indice_construccion %>%
  filter(REF_AREA%in%c("ESP","USA","COL","ZAF","TUR"),(TIME_PERIOD>2019)) %>%
  arrange(TIME_PERIOD,REF_AREA)%>%
  head(10) %>% 
  kable(caption = "Indice de Producción de la construccion") %>%  
  kable_classic(html_font = "Times New Roman", font_size = 14) %>% 
  add_footnote(label="Tomado de la API de la OCDE",
               notation="symbol") %>%  kable_styling()
Indice de Producción de la construccion
TIME_PERIOD REF_AREA FREQ MEASURE UNIT_MEASURE ACTIVITY ADJUSTMENT TRANSFORMATION obsValue UNIT_MULT DECIMALS BASE_PER OBS_STATUS
2020-01 ESP M PRVM IX F Y _Z 97.86130 0 1 2015 P
2020-01 USA M PRVM IX F Y _Z 133.43333 0 1 2015 A
2020-01 ZAF M PRVM IX F Y _Z 97.90812 0 1 2015 A
2020-02 ESP M PRVM IX F Y _Z 96.26253 0 1 2015 P
2020-02 USA M PRVM IX F Y _Z 134.13168 0 1 2015 A
2020-02 ZAF M PRVM IX F Y _Z 125.39587 0 1 2015 A
2020-03 ESP M PRVM IX F Y _Z 95.08450 0 1 2015 P
2020-03 USA M PRVM IX F Y _Z 134.78150 0 1 2015 A
2020-03 ZAF M PRVM IX F Y _Z 84.67831 0 1 2015 A
2020-04 ESP M PRVM IX F Y _Z 72.78592 0 1 2015 P
* Tomado de la API de la OCDE

No se encontraron datos para Colombia y Turquia

library(tidyr)
library(TSstudio)

# Se crea el gráfico
Grafica1<-Indice_construccion %>% 
 filter(REF_AREA%in%c("ESP","USA","COL","ZAF","TUR"), TIME_PERIOD>2020) %>% 
  select(TIME_PERIOD,REF_AREA,obsValue) %>% 
  group_by(TIME_PERIOD,REF_AREA) %>% 
  pivot_wider(names_from = REF_AREA, values_from = obsValue) -> Comparativa1
Comparativa1[,-1]%>% ts(start = c(2020,1),frequency = 12 ) ->`Indice de Producción de la construccion de algunos paises de la OCDE`
ts_plot(`Indice de Producción de la construccion de algunos paises de la OCDE`)

No se encontraron datos para Colombia y Turquia

API Comtradr

Crea una cuenta en UN Comtrade con tu correo institucional y obtén el token para hacer uso de la API a través de la suscripción “comtrade - v1”

literal A

Obtén las exportaciones de Guatemala y El Salvador hacía el resto del mundo de las siguientes subpartidas arancelarias = (“170113”,“610510”).

library (dplyr)
library(comtradr)
Sys.setenv('COMTRADE_PRIMARY' = '0a885816eb9b4511a93e496531bf8098') # Se ingresa la KEY que brinda el sitio web de UNcomtrade

Exp_GTM_SLV<-ct_get_data(commodity_code = c("170113","610510"),
                              reporter = c("SLV","GTM"), 
                              partner = c("World"),
                              frequency =  "M",
                              flow_direction = "export",
                              start_date  = 2023,
                              end_date = 2023)

Exp_GTM_SLV<-Exp_GTM_SLV%>%
  select(Year=ref_year,
         Mes=ref_month,
         ISO=reporter_iso,
         Country=reporter_desc,
         Socio=partner_desc,
         Nivel_Agregacion = aggr_level, 
         Codigo_Arancelario = cmd_code, 
         Descripcion = cmd_desc, 
         Valor=fobvalue) %>%  
 mutate(Valor=round((Valor/1e6),2)) %>% 
   head(10) %>%
kable(caption = "Exportaciones de El Salvador y Guatemala con el resto del mundo en MM USD ") %>%
  kable_classic(html_font = "Times New Roman", font_size = 14) %>% 
  add_footnote(label="Tomado de la API de Uncomtrade",
               notation="symbol") %>%  kable_styling() 
Exp_GTM_SLV
Exportaciones de El Salvador y Guatemala con el resto del mundo en MM USD
Year Mes ISO Country Socio Nivel_Agregacion Codigo_Arancelario Descripcion Valor
2023 1 SLV El Salvador World 6 170113 Sugars; cane sugar, raw, in solid form, as specified in Subheading Note 2 to this chapter, not containing added flavouring or colouring matter 0.16
2023 1 SLV El Salvador World 6 610510 Shirts; men’s or boys’, of cotton, knitted or crocheted 0.41
2023 1 GTM Guatemala World 6 170113 Sugars; cane sugar, raw, in solid form, as specified in Subheading Note 2 to this chapter, not containing added flavouring or colouring matter 0.00
2023 1 GTM Guatemala World 6 610510 Shirts; men’s or boys’, of cotton, knitted or crocheted 9.25
2023 2 SLV El Salvador World 6 170113 Sugars; cane sugar, raw, in solid form, as specified in Subheading Note 2 to this chapter, not containing added flavouring or colouring matter 0.26
2023 2 SLV El Salvador World 6 610510 Shirts; men’s or boys’, of cotton, knitted or crocheted 0.49
2023 2 GTM Guatemala World 6 610510 Shirts; men’s or boys’, of cotton, knitted or crocheted 7.72
2023 3 SLV El Salvador World 6 170113 Sugars; cane sugar, raw, in solid form, as specified in Subheading Note 2 to this chapter, not containing added flavouring or colouring matter 0.24
2023 3 SLV El Salvador World 6 610510 Shirts; men’s or boys’, of cotton, knitted or crocheted 0.70
2023 3 GTM Guatemala World 6 610510 Shirts; men’s or boys’, of cotton, knitted or crocheted 10.04
* Tomado de la API de Uncomtrade

literal B

Haciendo uso de la función ct_commodity_lookup, obtén las exportaciones de Estados Unidos de las posibles subpartidas arancelarias a nivel de 6 dígitos relacionadas a Maíz (Maize) para el año 2020.

Paises<-country_codes # Muestra los Países
Catalogo_Productos<-ct_get_ref_table("HS") # Brinda catalogo de los productos y servicios según se especifique. 

# Buscar todos los códigos de productos relacionados con el maiz
maiz_datos <- ct_commodity_lookup("Maize", return_code = TRUE, return_char = TRUE) 
print(maiz_datos)
##  [1] "1005"   "100510" "100590" "110220" "110290" "110313" "110423" "110429"
##  [9] "110812" "151521" "151529" "151590" "1904"   "190430" "190490" "230210"
## [17] "230670"
# Realizar la consulta a la API para obtener datos del maiz
datos_maiz <- ct_get_data(
  reporter = "USA",  
  flow_direction = c("export"),
  partner = "World",
   commodity_code = c("100510","100590","110220","110290","110313","110423","110429","110812","151521","151529","151590","1904","190430","190490","230210","230670"),
  start_date = 2020,  
  end_date = 2020,
  frequency = "A" )

datos_maiz<-datos_maiz %>%
  select(
  Year=ref_year,
  Mes=ref_month,
  ISO=reporter_iso,
  Country=reporter_desc,
  Socio=partner_desc,
  Nivel_Agregacion = aggr_level, 
  Codigo_Arancelario = cmd_code, 
  Descripcion = cmd_desc, 
  Valor=fobvalue) %>% 
  filter(Nivel_Agregacion==6) %>% 
  mutate(Valor=round((Valor/1e6),2)) %>% 
   head(10) %>%
kable(caption = "Exportaciones de maiz de Estados Unidos durante el 2020 en MM USD") %>%
  kable_classic(html_font = "Times New Roman", font_size = 14) %>% 
  add_footnote(label="Tomado de la API de Uncomtrade",
               notation="symbol") %>%  kable_styling() 
datos_maiz
Exportaciones de maiz de Estados Unidos durante el 2020 en MM USD
Year Mes ISO Country Socio Nivel_Agregacion Codigo_Arancelario Descripcion Valor
2020 52 USA USA World 6 100510 Cereals; maize (corn), seed 271.04
2020 52 USA USA World 6 100590 Cereals; maize (corn), other than seed 9304.22
2020 52 USA USA World 6 110220 Cereal flour; of maize (corn) 61.40
2020 52 USA USA World 6 110290 Cereal flours; other than wheat, meslin, and maize (corn) 32.09
2020 52 USA USA World 6 110313 Cereal groats and meal; of maize (corn) 62.00
2020 52 USA USA World 6 110423 Cereal grains; worked (e.g. hulled, pearled, sliced or kibbled) of maize (corn) 54.24
2020 52 USA USA World 6 110429 Cereal grains; worked, other than rolled or flaked (e.g. Hulled, pearled, sliced or kibbled) of cereals, excluding oats and maize, and rice of heading no.1006 7.44
2020 52 USA USA World 6 110812 Starch; maize (corn) starch 97.78
2020 52 USA USA World 6 151521 Vegetable oils; maize (corn) oil and its fractions, crude, not chemically modified 110.98
2020 52 USA USA World 6 151529 Vegetable oils; maize (corn) oil and its fractions, other than crude, whether or not refined, but not chemically modified 87.45
* Tomado de la API de Uncomtrade