In IndrajeetPatil/ggstatplot: 'ggplot2' Based Plots with Statistical Details

#| label = "setup",
#| include = FALSE
source("../vignettes/setup.R")

Introduction

This is mostly to keep track of how the performance of different functions changes across time.

ggbetweenstats

#| label = "ggbetweenstats"

bench::mark(
  ggbetweenstats(
    data = dplyr::filter(
      movies_long,
      genre %in% c("Action", "Action Comedy", "Action Drama", "Comedy")
    ),
    x = mpaa,
    y = length
  )
) %>%
  dplyr::select(-expression)

bench::mark(
  grouped_ggbetweenstats(
    data = dplyr::filter(
      movies_long,
      genre %in% c("Action", "Action Comedy", "Action Drama", "Comedy")
    ),
    x = mpaa,
    y = length,
    grouping.var = genre
  )
) %>%
  dplyr::select(-expression)

ggwithinstats

#| label = "ggwithinstats"

bench::mark(
  ggwithinstats(
    data = bugs_long,
    x = condition,
    y = desire
  )
) %>%
  dplyr::select(-expression)


bench::mark(
  grouped_ggwithinstats(
    data = bugs_long,
    x = condition,
    y = desire,
    grouping.var = gender
  )
) %>%
  dplyr::select(-expression)

gghistostats

#| label = "gghistostats"

bench::mark(gghistostats(mtcars, wt, test.value = 3)) %>%
  dplyr::select(-expression)


bench::mark(grouped_gghistostats(mtcars, wt, test.value = 3, grouping.var = am)) %>%
  dplyr::select(-expression)

ggdotplotstats

#| label = "ggdotplotstats"

bench::mark(ggdotplotstats(
  dplyr::filter(ggplot2::mpg, cyl %in% c("4", "6")),
  cty,
  manufacturer,
  test.value = 15
)) %>%
  dplyr::select(-expression)


bench::mark(
  grouped_ggdotplotstats(
    dplyr::filter(ggplot2::mpg, cyl %in% c("4", "6")),
    cty,
    manufacturer,
    test.value = 15,
    grouping.var = cyl
  )
) %>%
  dplyr::select(-expression)

ggscatterstats

#| label = "ggscatterstats"

bench::mark(ggscatterstats(mtcars, wt, mpg)) %>%
  dplyr::select(-expression)


bench::mark(grouped_ggscatterstats(mtcars, wt, mpg, grouping.var = am)) %>%
  dplyr::select(-expression)

ggcorrmat

#| label = "ggcorrmat"

bench::mark(ggcorrmat(iris)) %>%
  dplyr::select(-expression)


bench::mark(grouped_ggcorrmat(iris, grouping.var = Species)) %>%
  dplyr::select(-expression)

ggpiestats

#| label = "ggpiestats"



bench::mark(ggpiestats(mtcars, cyl)) %>%
  dplyr::select(-expression)


bench::mark(grouped_ggpiestats(mtcars, cyl, grouping.var = am)) %>%
  dplyr::select(-expression)

ggbarstats

#| label = "ggbarstats"

bench::mark(ggbarstats(ggplot2::mpg, fl, class)) %>%
  dplyr::select(-expression)


bench::mark(grouped_ggbarstats(ggplot2::mpg, fl, class, grouping.var = drv)) %>%
  dplyr::select(-expression)

ggcoefstats

#| label = "ggcoefstats"
bench::mark(ggcoefstats(stats::lm(formula = wt ~ am * cyl, data = mtcars))) %>%
  dplyr::select(-expression)

Suggestions

If you find any bugs or have any suggestions/remarks, please file an issue on GitHub: https://github.com/IndrajeetPatil/ggstatsplot/issues

IndrajeetPatil/ggstatplot documentation built on April 26, 2024, 10:27 a.m.