geom_label
geom_line
geom_point
Autor

Víctor Gauto

Fecha de publicación

23 de septiembre de 2025

Evaluación del Índice Gini para una selección de países.

Semana 31, 2025

Paquetes

Ocultar código 
library(glue)
library(ggtext)
library(showtext)
library(gganimate)
library(tidyverse)

Estilos

Colores.

Ocultar código 
c1 <- "#134130"
c2 <- "#E6AB02"
c3 <- "black"
c4 <- "white"

col <- RColorBrewer::brewer.pal(name = "Dark2", n = 8)

Fuentes: Ubuntu y JetBrains Mono.

Ocultar código 
font_add(
  family = "ubuntu",
  regular = "././fuente/Ubuntu-Regular.ttf",
  bold = "././fuente/Ubuntu-Bold.ttf",
  italic = "././fuente/Ubuntu-Italic.ttf"
)

font_add(
  family = "jet",
  regular = "././fuente/JetBrainsMonoNLNerdFontMono-Regular.ttf"
)

showtext_auto()
showtext_opts(dpi = 300)

Epígrafe

Ocultar código 
n <- "<span style='color: white'> . </span>"
fuente <- glue("Our{n}World{n}in{n}Data")
autor <- glue("<span style='color:{c2};'>**Víctor{n}Gauto**</span>")
icon_twitter <- glue("<span style='font-family:jet;'>&#xf099;</span>")
icon_instagram <- glue("<span style='font-family:jet;'>&#xf16d;</span>")
icon_github <- glue("<span style='font-family:jet;'>&#xf09b;</span>")
icon_mastodon <- glue("<span style='font-family:jet;'>&#xf0ad1;</span>")
icon_bsky <- glue("<span style='font-family:jet;'>&#xe28e;</span>")
usuario <- glue("<span style='color:{c2};'>**vhgauto**</span>")
sep <- glue("**|**")

mi_caption <- glue("{fuente}<br>{autor}{n}{sep}{n}{usuario}")

Datos

Ocultar código 
tuesdata <- tidytuesdayR::tt_load(2025, 31)
inequality_processed <- tuesdata$income_inequality_processed

Procesamiento

Me interesa la evolución del Índice Gini en los países con mayor registro.

Ocultar código 
top_pais <- inequality_processed |> 
  count(Entity, sort = TRUE) |> 
  filter(n >= 30) |> 
  filter(Entity != "Brazil") |> 
  pull(Entity)

top_paise_trad <- c(
  "EE.UU.", "Reino Unido", "Canadá", "Alemania", "Luxemburgo",
  "Francia", "España"
)

top_paise_trad <- set_names(top_paise_trad, top_pais)

d <- inequality_processed |> 
  filter(Entity %in% top_pais) |> 
  mutate(pais = top_paise_trad[Entity])

Figura

Título y figura.

Ocultar código 
mi_titulo <- glue(
  "El **Índice Gini** indica{n}la desigualdad{n}del{n}país.<br>
  Cuanto{n}más bajo, 
  más igualitaria{n}es la sociedad."
)

g <- ggplot(d, aes(Year, gini_dhi_eq, color = pais, fill = pais, group = pais)) +
  geom_label(
    aes(label = pais), hjust = 0, size = 4, size.unit = "pt", nudge_x = .5,
    color = c3, family = "ubuntu", label.size = 0
  ) +
  geom_line(linewidth = .8, lineend = "round") +
  geom_point(size = 1, shape = 21, color = c4) +
  scale_x_continuous(breaks = scales::breaks_width(10)) +
  scale_y_continuous(limits = c(.2, .4), expand = c(0, 0)) +
  scale_color_manual(values = alpha(col, .5)) +
  scale_fill_manual(values = alpha(col, .5)) +
  coord_cartesian(clip = "off") +
  labs(
    x = NULL,
    y = "Índice Gini, luego de impuestos",
    title = mi_titulo,
    caption = mi_caption
  ) +
  theme_classic(base_size = 5, base_family = "ubuntu") +
  theme(
    aspect.ratio = 1,
    plot.margin = margin(r = 22, l = 5),
    plot.background = element_blank(),
    plot.title = element_markdown(color = c1, size = rel(1.2)),
    plot.caption = element_markdown(),
    axis.text = element_text(color = c1, family = "jet"),
    axis.text.y = element_text(vjust = 0),
    axis.title = element_text(color = c1),
    axis.ticks = element_blank(),
    axis.line = element_blank(),
    panel.background = element_blank(),
    panel.grid.major = element_line(
      color = c1, linewidth = .1, linetype = "FF"
    ),
    legend.position = "none"
  ) +
  transition_reveal(Year) +
  enter_fade() +
  exit_shrink() +
  ease_aes('sine-in-out')

Genero la animación y almaceno.

Ocultar código 
p <- animate(
  plot = g, renderer = av_renderer(), width = 1000, height = 1000, res = 300
)

anim_save(filename = "tidytuesday/2025/semana_31.mp4", animation = p)
Subir