geom_tile
geom_richtext
Autor

Víctor Gauto

Fecha de publicación

11 de septiembre de 2025

Canciones repetidas en el Billboard Hot 100.

Semana 34, 2025

Paquetes

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

Estilos

Colores.

Ocultar código 
c1 <- "#FFB3B5"
c2 <- "#7D0112"
# c3 <- "#4B1D91"
c3 <- "#310048"
c4 <- "#D3D9FF"

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"
)

font_add(
  family = "bebas",
  regular = "././fuente/BebasNeue-Regular.ttf"
)

showtext_auto()
showtext_opts(dpi = 300)

Epígrafe

Ocultar código 
fuente <- glue(
  "Datos: <span style='color:{c3};'><span style='font-family:jet;'>",
  "{{<b>tidytuesdayR</b>}}</span> semana 34, ",
  "<b>Billboard Hot 100 Number Ones Database</b>.</span>"
)

autor <- glue("<span style='color:{c3};'>**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:{c3};'>**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, 34)
billboard <- tuesdata$billboard

Procesamiento

Me interesan las canciones con el mismo nombre, indicando los artistas y el año.

Canciones repetidas.

Ocultar código 
s <- billboard |>
  count(song, sort = TRUE) |>
  filter(n >= 2) |>
  pull(song)

Defino la cantidad de elementos a lo ancho y alto. Agrego íconos para las etiquetas de texto para la figura.

Ocultar código 
ancho_song <- 4
alto_song <- 6

icon_music <- glue(
  "<span style='font-family:jet; color: {c1};'>&#xf001;</span>"
)

icon_artist <- glue(
  "<span style='font-family:jet; color: {c2};'>&#xf4ff;</span>"
)

Filtro los datos por las canciones seleccionadas y genero las etiquetas incorporando los íconos.

Ocultar código 
d <- billboard |>
  filter(song %in% s) |>
  mutate(año = year(date)) |>
  select(song, artist, año) |>
  arrange(song, año) |>
  mutate(artist = str_wrap(artist, 26)) |>
  mutate(artist = str_replace_all(artist, "\n", "<br>")) |>
  mutate(artista_año = glue("{icon_artist} <b>{artist}</b>, {año}")) |>
  nest(.by = song) |>
  mutate(
    label = map_chr(data, ~ str_flatten(.x$artista_año, collapse = "<br>"))
  ) %>%
  mutate(x = rep(1:ancho_song, length.out = nrow(.))) %>%
  mutate(y = rep(alto_song:1, each = ancho_song, length.out = nrow(.))) |>
  mutate(song = str_wrap(song, 13)) |>
  mutate(song = str_replace_all(song, "\n", "<br>"))

Figura

Ancho y alto del recuadro detrás de los nombres de las canciones y el título de la figura.

Ocultar código 
ancho_art <- .8
alto_art <- .6

mi_titulo <- glue(
  "Canciones con el mismo título dentro del <b style='color: {c2};'>Billboard Hot 100</b>, desde 
  {year(min(billboard$date))}"
)

Figura.

Ocultar código 
g <- ggplot(d, aes(x, y)) +
  geom_tile(width = ancho_art, height = alto_art, fill = c3) +
  geom_richtext(
    aes(label = icon_music, x = x - ancho_art / 2, y = y + alto_art / 2),
    fill = NA,
    hjust = 0,
    vjust = 1,
    size = 15,
    label.color = NA
  ) +
  geom_richtext(
    aes(label = song),
    size = 11,
    family = "bebas",
    fill = NA,
    label.color = NA,
    color = "white"
  ) +
  geom_richtext(
    aes(x = x - ancho_art / 2, y = y - alto_art / 2, label = label),
    size = 4.3,
    fill = NA,
    label.color = NA,
    family = "ubuntu",
    hjust = 0,
    vjust = 1,
    color = "black"
  ) +
  coord_equal(clip = "off") +
  labs(title = mi_titulo, caption = mi_caption) +
  theme_void(base_family = "ubuntu", base_size = 10) +
  theme(
    plot.background = element_rect(fill = c4, color = NA),
    plot.title = element_markdown(
      size = rel(2.3),
      hjust = .5,
      margin = margin(t = 15, b = -30)
    ),
    plot.caption = element_markdown(
      color = c2,
      size = rel(1.4),
      lineheight = 1.2,
      hjust = .5,
      margin = margin(b = 10, t = 10)
    )
  )

Guardo.

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