Intro Thoughts
Status Quo
library(tidyverse)
library(tidytuesdayR)
Experiment
path <- "./2026-03-10-tidytuesday-data-submission/tt_submission"
tt_clean(path = path)
tt_intro(path = path)
library(ggridges)
'
tt <- tt_load("2026-03-10") #<<
wrangled <-
tt$absolute_judgements |> #<<
mutate(term_ord = term |>
fct_reorder(probability)
)
ggplot(data = wrangled) +
aes(x = probability,
y = term_ord,
fill = term_ord,
color = term_ord,
alpha = I(.3)) +
geom_density_ridges() + #<<
labs(x = NULL, y = NULL) +
theme(legend.position = "none")' |>
ggram::ggram(code = _, widths = c(1.5,1),
title = "🧹🧺🫧 TidyTuesday's March 10 data, with tidytuesdayR, ggplot2, and ggridges 📊🙂",
caption = "This week's datasets, 'tt', retrieval: tt <- tidytuesdayR::tt_load('2026-03-10')\n'tt$absolute_judgements' is one of the dataframes")
## ---- Compiling #TidyTuesday Information for 2026-03-10 ----
## --- There are 3 files available ---
##
##
## ── Downloading files ───────────────────────────────────────────────────────────
##
## 1 of 3: "absolute_judgements.csv"
## 2 of 3: "pairwise_comparisons.csv"
## 3 of 3: "respondent_metadata.csv"
## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_tile()`).
## Warning: Removed 10 rows containing missing values or values outside the scale range
## (`geom_hline()`).
## Picking joint bandwidth of 1.47
