geom_boxplot
Autor

Víctor Gauto

Fecha de publicación

23 de septiembre de 2025

Cantidad de nutrientes en platos de cinco países.

Semana 37, 2025

Paquetes

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

Estilos

Colores.

Ocultar código 
c1 <- "#D8DEE9"
c2 <- "#2E3440"
c3 <- "#3B4252"
c4 <- "#434C5E"
c5 <- "white"
c6 <- "#74ACDF"

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 37, ",
  "<b>{{tastyR}}, allrecipes.com</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, 37)
cuisines <- tuesdata$cuisines

Procesamiento

Me interesa la distribución de la cantidad de nutrientes (lípidos, carbohidratos y proteínas) en cinco países (Argentina, Grecia, Italia, Japón y España).

Creo etiquetas para nutrientes y países.

Ocultar código 
nut_tbl <- tibble(
  nut = c("fat", "carbs", "protein"),
  nut_trad = c(
    "Lípidos (g/porción)",
    "Carbohidratos (g/porción)",
    "Proteínas (g/porción)"
  )
)

country_tbl <- tibble(
  country = c("argentinian", "greek", "italian", "japanese", "spanish"),
  pais = c("Argentina", "Grecia", "Italia", "Japón", "España"),
  sym = c("AR", "GR", "IT", "JP", "ES")
)

Filtro por países e incorporo las banderas.

Ocultar código 
link <- "<img src='https://raw.githubusercontent.com/fonttools/region-flags/refs/heads/gh-pages/png/"

d <- cuisines |>
  mutate(country = tolower(country)) |>
  filter(str_detect(country, "arg|spa|ital|greek|japan")) |>
  select(name, country, calories, fat, carbs, protein, avg_rating) |>
  pivot_longer(
    cols = fat:protein,
    values_to = "valor",
    names_to = "nut"
  ) |>
  drop_na() |>
  full_join(nut_tbl, by = join_by(nut)) |>
  full_join(country_tbl, by = join_by(country)) |>
  mutate(flag = paste0(link, sym, ".png' width=50></img>")) |>
  mutate(flag = fct_reorder(flag, valor))

Figura

Etiquetas de los países y título.

Ocultar código 
pais_label <- str_flatten_comma(
  paste0("<b style='color:", c6, ";'>", sort(country_tbl$pais), "</b>"),
  last = " y "
)

mi_titulo <- glue(
  "Contenido de nutrientes en la cocina de<br>{pais_label}"
)

Figura.

Ocultar código 
g <- ggplot(
  d,
  aes(
    x = valor,
    y = tidytext::reorder_within(flag, valor, nut_trad, median),
    fill = pais
  )
) +
  geom_boxplot(
    color = c5,
    width = .7,
    linewidth = .4,
    outlier.color = c1,
    outlier.size = .2
  ) +
  facet_wrap(vars(nut_trad), scales = "free_y", ncol = 1, axes = "all_x") +
  nord::scale_fill_nord(palette = "mountain_forms") +
  tidytext::scale_y_reordered() +
  scale_x_continuous(
    breaks = scales::breaks_width(25),
    limits = c(0, 175),
    expand = c(0, 0)
  ) +
  coord_cartesian(clip = "off", expand = TRUE) +
  labs(x = NULL, y = NULL, title = mi_titulo, caption = mi_caption) +
  ggridges::theme_ridges(font_size = 15, font_family = "ubuntu") +
  theme(
    plot.background = element_rect(fill = c2),
    plot.margin = margin(r = 35, l = 35, b = 10, t = 10),
    plot.title = element_markdown(
      size = 32,
      color = c5,
      hjust = .5,
      margin = margin(b = 10)
    ),
    plot.title.position = "panel",
    plot.caption = element_markdown(
      size = 13,
      color = c6,
      lineheight = 1.3,
      margin = margin(t = 15)
    ),
    panel.background = element_rect(fill = c3),
    panel.spacing.y = unit(22, "pt"),
    panel.grid.major.y = element_blank(),
    panel.grid.major.x = element_line(color = c4),
    legend.position = "none",
    axis.text = element_text(color = c1, family = "jet", size = 12),
    axis.text.y = element_markdown(vjust = .5),
    axis.ticks = element_blank(),
    strip.background = element_blank(),
    strip.text = element_text(
      size = 20,
      hjust = 1,
      face = "italic",
      color = c5
    ),
    strip.clip = "off"
  )

Guardo.

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