# paquetes ----------------------------------------------------------------
# {glue}, {ggtext}, {showtext}, {tidyverse}
# se cargan automáticamente
# fuente ------------------------------------------------------------------
# colores
c1 <- "#447099"
c2 <- "#75AADB"
c3 <- "#F0F5F9"
c4 <- "black"
# fuente: Ubuntu
font_add(
family = "ubuntu",
regular = "fuente/Ubuntu-Regular.ttf",
bold = "fuente/Ubuntu-Bold.ttf",
italic = "fuente/Ubuntu-Italic.ttf"
)
# monoespacio & íconos
font_add(
family = "jet",
regular = "fuente/JetBrainsMonoNLNerdFontMono-Regular.ttf"
)
showtext_auto()
showtext_opts(dpi = 300)
# caption
mi_caption <- caption(
fuente1 = "<span style='font-family:jet'>posit::conf</jet>",
col = c1,
week = 2
)
# datos -------------------------------------------------------------------
tuesdata <- tidytuesdayR::tt_load(2025, 2)
conf2023 <- tuesdata$conf2023
conf2024 <- tuesdata$conf2024
# me interesa la cantidad de conferencias que hablan de QUARTO entre 2023 y 2024
# cantidad de conferencias que mencionan QUARTO, 2023/2024
n2023 <- conf2023 |>
mutate(quarto = str_detect(session_abstract, "quarto|Quarto")) |>
dplyr::filter(quarto) |>
nrow()
n2024 <- conf2024 |>
mutate(quarto = str_detect(description, "quarto|Quarto")) |>
dplyr::filter(quarto) |>
nrow()
d <- tibble(
año = c(2023, 2024),
n = c(n2023, n2024)
) |>
mutate(
año = paste0("posit::conf\n", año)
)
# figura ------------------------------------------------------------------
# logo y subtítulo
logo <- "https://quarto.org/quarto.png"
logo_img <- glue(
"<img src='{logo}' width=250 />"
)
mi_subitulo <- glue(
"La cantidad de conferencias<br>que incluyen
<span style='font-family:jet; color:{c1}'>quarto</span> <br>
amentaron en las ediciones<br>
2023 y 2024 de <span style='font-family:jet; color:{c1}'>posit::conf</span>"
)
# figura
g <- ggplot(d, aes(año, n, label = n)) +
geom_col(fill = c1) +
geom_text(vjust = -.2, family = "jet", size = 9, color = c2) +
annotate(
geom = "richtext", x = 2.12, y = 25, label = logo_img, fill = NA,
vjust = -1.2, label.color = NA
) +
scale_y_continuous(limits = c(0, 25)) +
coord_cartesian(expand = FALSE, xlim = c(.5, 2.5), clip = "off") +
labs(caption = mi_caption, subtitle = mi_subitulo) +
theme_void(base_size = 22, base_family = "ubuntu") +
theme(
aspect.ratio = 1,
plot.margin = margin(25, 5, 5, 5),
plot.background = element_rect(fill = c3, color = NA),
plot.subtitle = element_markdown(
color = c4, size = 30, lineheight = 1.3, margin = margin(b = 30, l = 20)
),
plot.caption = element_markdown(
color = c2, lineheight = 1.2, margin = margin(b = 5, t = 20)
),
axis.text.x = element_text(margin = margin(t = 5), family = "jet"),
)
# guardo
ggsave(
plot = g,
filename = "2025/s02/viz.png",
width = 30,
height = 40,
units = "cm"
)
# abro
browseURL(paste0(getwd(), "/2025/s02/viz.png"))
