# NOT RUN {
ecdf_plot(benchmarks, math ~ ell,
cuts = c(190, 205, 210),
ref_line_cols = c("#D68EE3", "#9BE38E", "#144ECA"))
# Customize the plot with ggplot2 functions
library(ggplot2)
ecdf_plot(benchmarks, math ~ ell,
cuts = c(190, 205, 210),
ref_line_cols = c("#D68EE3", "#9BE38E", "#144ECA")) +
theme_minimal() +
theme(legend.position = "bottom")
ecdf_plot(seda, mean ~ grade) +
scale_fill_brewer(palette = "Set2") +
theme_minimal()
# Use within the dplyr pipeline
library(dplyr)
benchmarks %>%
mutate(season = factor(season,
levels = c("Fall", "Winter", "Spring"))) %>%
ecdf_plot(math ~ ell + season + frl)
# }
Run the code above in your browser using DataLab