data <- characters |> filter()
# datalist <- tidytuesdayR::tt_load("2022-08-16")
# write_rds(datalist, here("posts", "tt2022-08-16_psychometric", "data", "psychometric"))
datalist <- read_rds(here("posts", "tt2022-08-16_psychometric", "data", "psychometric"))
characters <- datalist$characters
stats <- datalist$psych_stats