R/comerciobr_grafico_paises.R

In fernandobastosneto/barao: Relações Internacionais Do Brasil

#' Gráfico de comparação do fluxo de comércio de um país com o Brasil,
#' em relação a países semelhantes
#'
#' @param pais um país
#' @param periodo "anual" ou "mensal"
#'
#' @export
comerciobr_grafico_paises <- function(pais, periodo) {

  if (periodo == "mensal") {

  df <- barao::comerciobr_dados_paises(pais, periodo) %>%
    dplyr::filter(co_ano == max(co_ano))
  frase <- paste0(barao::comerciobr_get_ulimoano(), ", agregado at\u00e9 ", barao::meses(barao::comerciobr_get_ultimomes()))

  }

  else {
    df <- barao::comerciobr_dados_paises(pais, periodo) %>%
      dplyr::filter(co_ano == max(co_ano)-1)
    frase <- paste0("em ", barao::comerciobr_get_ulimoano()-1)
  }

  df %>%
    ggplot2::ggplot() +
    ggplot2::geom_col(
    # dplyr::filter(no_pais != "Egito"),
    ggplot2::aes(tidytext::reorder_within(no_pais, value, path), value, fill = path),
    show.legend = F) +
    ggplot2::geom_col(data = . %>%
    dplyr::filter(.data$no_pais == pais),
    ggplot2::aes(tidytext::reorder_within(no_pais, value, path), value, fill = "red"),
    show.legend = F) +
    ggplot2::geom_label(ggplot2::aes(tidytext::reorder_within(no_pais, value, path), value,
    label = rank)) +
    ggplot2::facet_wrap(~path, scales = "free_y") +
    ggplot2::labs(title = glue::glue("Brasil-{pais}, parceiros comerciais pr\u00f3ximos",),
                  subtitle = glue::glue("{frase}"),
    x = NULL, y = NULL, caption = "Fonte: Minist\u00e9rio da Economia") +
    ggplot2::coord_flip() +
    ggplot2::theme_minimal() +
    ggplot2::scale_y_continuous(labels = scales::label_number_si()) +
    ggthemes::scale_fill_tableau() +
    tidytext::scale_x_reordered()

  }