A base de dados UN Comtrade fornece acesso gratuito às informações de comércio global. É possível obter dados usando sua interface de extração ou API. Por sorte, existe um pacote chamado comtradr que facilita o uso da API no R. Neste post, iremos mostrar um pouco da funcionalidade dele.
library(comtradr) library(tidyverse) library(splitstackshape) library(inlmisc)
Primeiramente, iremos selecionar os dados de exportações brasileiras com quatro países: China, Estados Unidos, Argentina e Holanda. Como não selecionamos o período, todos os dados desde 1990 são retornados. Além disso, é possível filtrar por tipo de produto. Neste caso, estamos selecionando o total exportado.
braziltop <- ct_search(reporters = "Brazil", partners = c("USA", "China", "Argentina", "Netherlands"), trade_direction = "exports") %>% ct_use_pretty_cols()
Veja que o formato de saída torna muito simples fazer um gráfico com a evolução das exportações ao longo dos anos. Fica evidente a rápida expensão chinesa para se tornar principal destino dos produtos brasileiros.
ggplot(braziltop, aes(Year, `Trade Value usd`, color = factor(`Partner Country`))) + geom_point(size = 2) + geom_line(size = 1) + scale_color_manual(values = c("#011627", "#FF3366", "#2EC4B6", "#20A4F3"), name = "País") + scale_shape_discrete(name = "País") + labs(title = "Destino das exportações brasileiras", y = "Total em dólares", x = "Ano") + theme_minimal()
Agora, ao invés de selecionarmos todos os produtos, iremos escolher apenas as exportações de peixe. Para fazer a filtragem, é preciso utilizar os códigos do sistema harmonizado (SH), que cataloga os produtos em categorias gerais e específicas. Essa filtragem é feita no parâmetro "commod_codes" da função. Iremos extrair apenas os dados referentes a 2020.
Como nós selecionamos os produtos, a API retorna o dado individual de cada categoria. Assim, iremos somar o valor exportado por país de destino.
export_peixe <- ct_search(reporters = "Brazil", partners = "All", trade_direction = "exports", start_date = 2020, end_date = 2020, commod_codes = c("0301","0302","0303","0304","0305") ) %>% ct_use_pretty_cols() %>% group_by(`Partner Country`) %>% summarise("Total" = sum(`Trade Value usd`)) %>% filter(`Partner Country` != "World")
A partir destes dados, iremos criar um gráfico que mostre a composição relativa de cada país. Para isso, é preciso antes fazer algumas alterações na formatação dos dados, de modo que o dataframe final tenha a o número de quadrantes ocupado por cada país e suas posições.
</pre> export_peixe$prop = 100*export_peixe$Total/sum(export_peixe$Total) export_peixe = expandRows(export_peixe, "prop") export_peixe <- rbind(export_peixe, export_peixe[sample(nrow(export_peixe), 100- nrow(export_peixe)), ]) var = export_peixe$`Partner Country` nrows <- 10 categ_table <- round(table(var) * ((nrows*nrows)/(length(var)))) base <- expand.grid(y = 1:nrows, x = 1:nrows) base$category <- factor(rep(names(categ_table), categ_table)) ggplot(base, aes(x = x, y = y, fill = category)) + geom_tile(color = "black", size = 0.5) + scale_fill_manual(values = as.character(GetColors(n = 9, scheme = "roma", alpha = 0.9))) + theme_void() + labs(title = "Destino das exportações de Peixe pelo Brasil (2020)") + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0), trans = 'reverse') + theme(panel.border = element_rect(size = 2, fill = NA)) <pre>
Com isso, vemos uma predominância dos Estados Unidos como destino das exportações brasileiras de peixe.
________________________
(*) Para entender mais sobre comércio internacional, confira nosso Curso de Análise de Conjuntura usando o R - Versão 5.0.