EAPOST Invited talk: Viz- and Code-first introductory statistical curricula

Thank you.

---

A little about me and teaching/programming background:

• 2018-2020 - University of Denver
• 2020-2023 - Institutional analytics and Math Intro to Statistics and Probability Instructor
• 2022-Present - Community Organizer, founder: ggplot2 extenders meetup

---

Start at the end:

• ggprop.test
• ggt.test
• ggxmeans

https://evamaerey.github.io/mytidytuesday/2026-05-04-ggttest-ggram/intro-stats-narrative.html

library(tidyverse)
library(ggprop.test)
library(ggchalkboard)


{dolphin_data |> 
  ggplot() + 
  labs(title = "Is there evidence that Doris and Buzz Communicate 🐬🐬🐟🪣") +
  aes(x = observed) + 
  geom_stack() + 
  geom_stack_label() + 
  geom_support() +
  geom_prop() + 
  geom_prop_label() + 
  stamp_prop(.5) + 
  stamp_prop_label(.5) + 
  geom_binomial_null(.5) } |> 
codehover::ch_hover()

ggplot(dolphin_data) +

labs(title = "Is there evidence that Doris and Buzz Communicate 🐬🐬🐟🪣") +

aes(x = observed) +

geom_stack() +

geom_stack_label() +

geom_support() +

geom_prop() +

geom_prop_label() +

stamp_prop(0.5) +

stamp_prop_label(0.5) +

geom_binomial_null(0.5)

{donor_data |> 
  ggplot() + 
  aes(x = decision) + 
  geom_stack() + 
  geom_stack_label() + 
  geom_support() +
  geom_prop() + 
  geom_prop_label() + 
  stamp_prop(.5) + 
  stamp_prop_label(.5) + 
  geom_binomial_null(.5) } |> 
codehover::ch_hover()

ggplot(donor_data) +

aes(x = decision) +

geom_stack() +

geom_stack_label() +

geom_support() +

geom_prop() +

geom_prop_label() +

stamp_prop(0.5) +

stamp_prop_label(0.5) +

geom_binomial_null(0.5)

library(ggt.test)

{data_grit_undergrad |>
  ggplot() + 
  labs(title = "As Gritty on average as West Point Cadets? 💪🪖🧗") +  
  aes(score) + 
  geom_rug() + 
  geom_stacks() + 
  geom_support() +
  geom_mean() + 
  geom_mean_label() + 
  stamp_mean(3.75)  + 
  geom_tdist_null(3.75)
}

library(tidyverse)

Experiment

Closing remarks, Other Relevant Work, Caveats