geom_spatvector
geom_image
Autor

Víctor Gauto

Fecha de publicación

26 de noviembre de 2025

Índice de desempeño estadístico por país en 2023.

Semana 47, 2025

Paquetes

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

Estilos

Colores.

Ocultar código 
c1 <- "#a599a1"
c2 <- "#002244"
c3 <- "#7f0038"
c4 <- "#200116"

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 
fuente <- glue(
  "Datos: <span style='color:{c2};'><span style='font-family:jet;'>",
  "{{<b>tidytuesdayR</b>}}</span> semana 47, ",
  "<b>World Bank</b>.</span>"
)

autor <- glue("<span style='color:{c2};'>**Víctor 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} {sep} {icon_github} {icon_twitter} {icon_instagram} ",
  "{icon_mastodon} {icon_bsky} {usuario}"
)

Datos

Ocultar código 
tuesdata <- tidytuesdayR::tt_load(2025, 47)
spi_indicators <- tuesdata$spi_indicators

Procesamiento

Me interesa el índice general de desempeño estadístico mostrado en un mapa.

Obtengo vector de todos los países.

Ocultar código 
mundo <- rgeoboundaries::gb_adm0() |>
  rename(iso3c = shapeGroup)

Filtro los datos al año 2023 y calculo la decena del puntaje general.

Ocultar código 
d <- filter(spi_indicators, year == 2023) |>
  select(iso3c, overall_score) |>
  drop_na() |>
  mutate(rango = overall_score - overall_score %% 10) |>
  mutate(rango = factor(rango))

Combino los datos con el vector países. Agrego una nueva categoría al rando de puntaje para incluir los países son datos.

Ocultar código 
d_mundo <- full_join(d, mundo, by = join_by(iso3c)) |>
  sf::st_as_sf() |>
  sf::st_transform("ESRI:54030") |>
  mutate(rango = if_else(is.na(rango), factor("Sin\ndatos"), rango))

Figura

Logo del Banco Mundial y título.

Ocultar código 
img_tbl <- tibble(
  x = I(.1),
  y = I(.5),
  image = "https://upload.wikimedia.org/wikipedia/commons/thumb/c/ca/World_Bank_Group_logo.svg/1280px-World_Bank_Group_logo.svg.png"
)

mi_titulo <- glue(
  "<b style='color: {c4}'>Índice de Desempeño Estadístico</b> mide los usos, ",
  "servicios, productos, fuentes e infraestructuda de datos de los países"
)

Figura.

Ocultar código 
g <- ggplot() +
  tidyterra::geom_spatvector(
    data = d_mundo,
    aes(fill = rango),
    color = c1,
    linewidth = .1
  ) +
  ggimage::geom_image(
    data = img_tbl,
    aes(x, y, image = image),
    inherit.aes = FALSE,
    size = .3
  ) +
  scale_fill_manual(
    breaks = c(seq(20, 90, 10), "Sin\ndatos"),
    labels = c(seq(20, 90, 10), "Sin\ndatos"),
    values = c(PrettyCols::prettycols(palette = "PinkGreens", n = 8), c4)
  ) +
  labs(
    title = mi_titulo,
    fill = "Puntaje general de **2023**<br>(en decenas)",
    caption = mi_caption
  ) +
  guides(fill = guide_legend(nrow = 1)) +
  theme_void(base_size = 12, base_family = "ubuntu") +
  theme_sub_plot(
    background = element_rect(fill = c1),
    title = element_markdown(color = c2, hjust = .5),
    caption = element_markdown(
      color = c3,
      hjust = .95,
      size = rel(.7),
      lineheight = 1.1,
      margin = margin(t = -30)
    )
  ) +
  theme_sub_legend(
    position = "bottom",
    justification.bottom = .05,
    title = element_markdown(
      color = c2,
      margin = margin(b = 20, r = 10),
      lineheight = 1.1,
      hjust = .5
    ),
    text = element_text(color = c2, family = "jet"),
    text.position = "bottom",
    key.spacing.x = unit(1, "pt")
  )

Guardo.

Ocultar código 
ggsave(
  plot = g,
  filename = "tidytuesday/2025/semana_47.png",
  width = 30,
  height = 18,
  units = "cm"
)
Subir