1 Load packages 2 Data 3 Unadjusted labels 4 Adjusted labels manually 5 Adjust labels automatically 6 Reproducibility 1 Load packages library(tidyverse) # data wrangling 2 Data data("mariokart", package = "openintro") 3 Unadjusted labels mario_quantile <- mariokart %>% filter(total_pr < 100) %>% summarise(q25 = quantile(total_pr, .25), q50 = quantile(total_pr, .50), q75 = quantile(total_pr, .75)) mario_quantile <- mariokart %>% filter(total_pr < 100) %>% reframe(qs = quantile(total_pr, …