GEOM_AAA
GEOM_BBB
GEOM_CCC
Autor

Víctor Gauto

Fecha de publicación

6 de octubre de 2025

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXX DESCRIPCIÓN DE LA FIGURA XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Semana 39, 2025

Paquetes

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

Estilos

Colores.

Ocultar código 
c1 <- "#000000"
c2 <- "#000000"
c3 <- "#000000"

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 39, ",
  "<b>---FUENTE---</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, 39)
cranes <- tuesdata$cranes

Procesamiento

Me interesa…

Ocultar código 
# ggplot(cranes, aes(date, observations, color = weather_disruption)) +
#   geom_point()

cranes |>
  mutate(año = year(date)) |>
  reframe(
    m = mean(observations, na.rm = TRUE),
    s = sd(observations, na.rm = TRUE),
    .by = año
  ) |>
  ggplot(aes(año, m)) +
  geom_point() +
  geom_errorbar(aes(ymin = m - s, ymax = m + s))

Figura

Figura.

Ocultar código 
g <- ggplot()

Guardo.

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

browseURL(paste0(getwd(), "/tidytuesday/2025/semana_39.png"))
Subir