if (FALSE) { # identical(Sys.getenv("NOT_CRAN"), "true")
set.seed(123)
# non-grouped plot
p1 <- ggbetweenstats(mtcars, cyl, mpg)
# grouped plot
p2 <- grouped_ggbarstats(Titanic_full, Survived, Sex, grouping.var = Age)
# extracting expressions -----------------------------
extract_subtitle(p1)
extract_caption(p1)
extract_subtitle(p2)
extract_caption(p2)
# extracting data frames -----------------------------
extract_stats(p1)
extract_stats(p2)
}
Run the code above in your browser using DataLab