Gráficas de barras

Gráficos valor categorías

library(dplyr)
library(ggplot2)
library(tidyr)

graficar_top_categoria <- function(df, categorias,titulo) {
  df %>%
    select(any_of(categorias)) %>%
    summarise(across(everything(), ~ sum(.x, na.rm = TRUE))) %>%
    pivot_longer(everything(), names_to = "categoria", values_to = "valor_total") %>%
    arrange(desc(valor_total)) %>%
    ggplot(aes(x = reorder(categoria, valor_total), y = valor_total / 1e9)) +
    geom_bar(stat = "identity", fill = "darkorange") +
    coord_flip() +
    labs(
      title = titulo,
      x = "Categoría",
      y = "Valor total (miles de millones USD)"
    ) +
    theme_minimal(base_size = 10)
}


prexp = pca_pre[[2]]
graficar_top_categoria(PRECRISIS_EXP, prexp, 'Exportaciones globales pre-crisis')

primp = pca_imp_pre[[2]]
graficar_top_categoria(PRECRISIS_IMP,primp, 'Importaciones globales pre-crisis')

crexp = pca_cri[[2]]
graficar_top_categoria(CRISIS_EXP, crexp, 'Exportaciones globales crisis')

crimp = pca_imp_cri[[2]]
graficar_top_categoria(CRISIS_IMP,crimp, 'Importaciones globales crisis')

postexp = pca_post[[2]]
graficar_top_categoria(POSTCRISIS_EXP, postexp, 'Exportaciones globales post-crisis')

postimp = pca_imp_post[[2]]
graficar_top_categoria(POSTCRISIS_IMP,postimp, 'Importaciones globales post-crisis')