geom_histogram
geom_point_svg
Autor

Víctor Gauto

Fecha de publicación

9 de agosto de 2025

Distribución de la duración de películas en Netflix.

Semana 30, 2025

Paquetes

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

Estilos

Colores.

Ocultar código 
c1 <- "#D81F26"
c2 <- "black"
c3 <- "white"
c4 <- "grey30"

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:{c3};'><span style='font-family:jet;'>",
  "{{<b>tidytuesdayR</b>}}</span> semana 30, ",
  "<b><span style='color: {c1}'>NETFLIX</b> 
  Engagement Reports</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, 30)
movies <- tuesdata$movies
shows <- tuesdata$shows

Procesamiento

Me interesa la duración de las películas. Conservo únicamente aquellas que duran menos de 4 horas para generar un histograma.

Ocultar código 
d <- movies |> 
  mutate(dur = duration(runtime)) |> 
  select(title, dur) |> 
  distinct() |> 
  drop_na() |> 
  filter(dur < 3600*4)

Duración promedio de las películas.

Ocultar código 
hora <- floor(mean(d$dur)/3600)
minuto <- floor((mean(d$dur) - hora*3600)/60)

Figura

Logo, título y subtítulo.

Ocultar código 
logo_link <- "https://upload.wikimedia.org/wikipedia/commons/0/08/Netflix_2015_logo.svg"
logo_txt <- paste(readLines(logo_link), collapse = "\n")

mi_titulo <- glue(
  "Distribución de duraciones de 
  {format(nrow(d), big.mark = '.', decimal.mark = ',')} películas 
  en <b style='color: {c1}'>NETFLIX</b>."
)

mi_subtitulo <- glue(
  "La película promedio <br>dura <b style='color: {c3}'>{hora} 
  hora {minuto} minutos</b>."
)

Figura.

Ocultar código 
g <- ggplot(d, aes(dur)) +
  geom_histogram(
    binwidth = 2*60, color = c2, fill = c1, linewidth = 1
  ) +
  ggsvg::geom_point_svg(
    x = I(.1), y = I(.3), svg = logo_txt, size = 40
  ) +
  scale_x_continuous(
    breaks = 1:3*3600,
    labels = paste0(1:3, "H")
  ) +
  annotate(
    geom = "richtext",
    x = I(.6),
    y = I(.8),
    label = mi_subtitulo,
    color = c4,
    family = "ubuntu",
    label.color = NA,
    size = 7,
    fill = NA,
    hjust = 0,
    vjust = 1
  ) +
  coord_cartesian(expand = FALSE, clip = "off") +
  labs(
    title = mi_titulo,
    caption = mi_caption
  ) +
  theme_void(base_family = "ubuntu", base_size = 16) +
  theme(
    aspect.ratio = 1,
    plot.margin = margin(t = 10, b = 10),
    plot.background = element_rect(fill = c2),
    plot.title.position = "plot",
    plot.title = element_textbox_simple(
      color = c3, size = rel(1.75), margin = margin(b = 15)
    ),
    plot.caption = element_markdown(
      color = c4, lineheight = 1.3, margin = margin(t = 10), 
      size = rel(.9)
    ),
    panel.background = element_blank(),
    panel.grid.major.y = element_line(
      color = c4, linewidth = .2, linetype = "FF"
    ),
    axis.text = element_text(
      color = c4, family = "jet", margin = margin(t = 10)
    ),
    axis.text.y = element_text(margin = margin(r = 5))
  )

Guardo.

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