GEOM_AAA
GEOM_BBB
GEOM_CCC
Autor

Víctor Gauto

Fecha de publicación

26 de octubre de 2025

Evolución de la cantidad de personas obesas en Argentina.

Semana 41, 2025

Paquetes

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

Estilos

Colores.

Ocultar código 
c1 <- "#ABC9C8"
c2 <- "#17164F"
c3 <- "white"
c4 <- "black"

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:{c1};'><span style='font-family:jet;'>",
  "{{<b>tidytuesdayR</b>}}</span> semana 41, ",
  "<b>Organización de las<br>Naciones Unidas para la Alimentación y ",
  "la Agricultura</b>.</span>"
)

autor <- glue("<span style='color:{c1};'>**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:{c1};'>**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, 41)
food <- tuesdata$food_security

Procesamiento

Me interesa la evolución anual en la cantidad de adultos obesos. Agrego formato a los números e indico las unidades.

Ocultar código 
d <- filter(
  food,
  Area == "Argentina" &
    Item == "Number of obese adults (18 years and older) (million)"
) |>
  select(año = Year_Start, valor = Value) |>
  mutate(
    label = format(
      valor,
      nsmall = 1,
      decimal.mark = ",",
      big.mark = "",
      trim = TRUE
    )
  ) %>%
  mutate(
    label = if_else(
      row_number() == nrow(.),
      paste0(label, " millones\nde personas"),
      label
    )
  )

Figura

Indico el patrón de diseño con una rampa de colores lineal.

Ocultar código 
p <- grid::linearGradient(
  colours = colorRampPalette(c(c2, c1))(100),
  x1 = 0,
  y1 = 0,
  x2 = 0,
  y2 = 1
)

Título y figura.

Ocultar código 
mi_titulo <- glue(
  "Entre 2005 y 2022 se duplicó la<br>cantidad de",
  "personas (+18 años)<br><b style='color: {c1};'>obesas</b> en",
  " **Argentina**"
)

g <- ggplot(d, aes(año, valor)) +
  geom_ribbon(aes(ymin = 5, ymax = valor), fill = p) +
  geom_line(color = c1, linewidth = 1) +
  geom_segment(
    aes(x = año, yend = valor, y = 5),
    color = c2,
    linewidth = .5,
    linetype = 3
  ) +
  geom_point(
    shape = 21,
    fill = c2,
    color = c1,
    size = 3,
    stroke = 1.3
  ) +
  geom_label(
    aes(label = label, hjust = hjust, vjust = vjust, size = valor),
    color = c3,
    hjust = 1,
    vjust = 0,
    show.legend = FALSE,
    fill = NA,
    label.padding = unit(0.4, "lines"),
    family = "jet",
    border.color = NA
  ) +
  geom_text(
    aes(y = 5, label = año),
    color = c3,
    family = "jet",
    vjust = rep(c(-.2, 1.2), length.out = nrow(d)),
    size = 4
  ) +
  annotate(
    geom = "richtext",
    x = I(0),
    y = I(.95),
    label = mi_titulo,
    fill = NA,
    color = c3,
    hjust = 0,
    label.color = NA,
    family = "ubuntu",
    size = 10
  ) +
  annotate(
    geom = "richtext",
    x = I(0),
    y = I(.5),
    label = mi_caption,
    hjust = 0,
    vjust = 0,
    color = c3,
    lineheight = 1.4,
    size = 4,
    fill = NA,
    label.color = NA
  ) +
  scale_x_continuous(breaks = scales::breaks_width(2)) +
  scale_size_area(max_size = 5.5) +
  coord_cartesian(ylim = c(5, NA), expand = FALSE, clip = "off") +
  theme_void(base_size = 10) +
  theme(
    plot.background = element_rect(fill = c2),
    plot.margin = margin(t = 50, b = 30, r = 30, l = 30)
  )

Guardo.

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