R/comerciobr_grafico_produtos_proporcao.R

In SCAEC/Barao: Relações Internacionais Do Brasil

#' Gráfico de proporção dos produtos comercializados do Brasil com um país
#'
#' @param pais um país
#' @param periodo "anual" ou "mensal"
#'
#' @export

comerciobr_grafico_produtos_proporcao <- function(pais, periodo) {

  if (length(pais) > 1) {
    nome_pais <- get_bloco(pais)
  }

  else {
    nome_pais <- pais
  }

  ano_max <- comerciobr_dados_produtos(pais, periodo) %>%
    dplyr::ungroup() %>%
    dplyr::filter(co_ano == max(co_ano)) %>%
    dplyr::distinct(co_ano) %>%
    dplyr::pull(max(co_ano))

  if (periodo == "mensal") {
    df <- barao::comerciobr_dados_produtos(pais, periodo) %>%
      dplyr::ungroup() %>%
      dplyr::filter(co_ano == max(co_ano))

    frase <- paste0(barao::comerciobr_get_ulimoano(), " at\u00e9 ", barao::meses(barao::comerciobr_get_ultimomes()))
  }

  else {
    df <- barao::comerciobr_dados_produtos(pais, periodo) %>%
      dplyr::ungroup() %>%
      dplyr::filter(co_ano == max(co_ano)-1)

    frase <- paste0("em ", barao::comerciobr_get_ulimoano()-1)
  }

  df <- df %>%
      dplyr::mutate(prop = value/.data$total) %>%
      dplyr::mutate(no_sh4_por = dplyr::case_when(stringr::str_length(no_sh4_por) > 20 ~ paste0(stringr::str_sub(no_sh4_por, 1, 20), ".."),
                                                  TRUE ~ no_sh4_por)) %>%
      dplyr::group_by(co_ano, path) %>%
      dplyr::mutate(total_prop = abs(sum(.data$prop)-1)) %>%
      dplyr::ungroup()

  exp <- df %>%
    dplyr::filter(path == "EXP") %>%
    dplyr::distinct(.data$total_prop) %>%
    dplyr::pull(.data$total_prop)

  imp <- df %>%
    dplyr::filter(path == "IMP") %>%
    dplyr::distinct(.data$total_prop) %>%
    dplyr::pull(.data$total_prop)

  total_imp <- df %>%
    dplyr::filter(path == "IMP") %>%
    dplyr::distinct(.data$total) %>%
    dplyr::pull(.data$total)

  total_exp <- df %>%
    dplyr::filter(path == "EXP") %>%
    dplyr::distinct(.data$total) %>%
    dplyr::pull(.data$total)


  df %>%
    tibble::add_row(co_ano = ano_max,
                    co_sh4 = "0000",
                    path = "EXP",
                    no_sh4_por = "Outros",
                    # rank = NA,
                    total = total_exp,
                    value = exp*.data$total,
                    prop = exp,
                    total_prop = NA) %>%
    tibble::add_row(co_ano = ano_max,
                    co_sh4 = "0000",
                    path = "IMP",
                    no_sh4_por = "Outros",
                    # rank = NA,
                    total = total_imp,
                    value = imp*.data$total,
                    prop = imp,
                    total_prop = NA) %>%
    treemap::treemap(index = c("path", "no_sh4_por"),
                     vSize = "value",
                     type = "index",
                     align.labels=list(c("center", "center"), c("left", "top")),
                     palette = ggthemes::tableau_color_pal('Tableau 10')(10),
                     title = glue::glue("Brasil-{nome_pais}, Propor\u00e7\u00e3o de Exporta\u00e7\u00f5es e Importa\u00e7\u00f5es {frase}"))
}