tests/testthat/test-plot_grpfrq.R

In sjPlot: Data Visualization for Statistics in Social Science

if (suppressWarnings(
  require("testthat") &&
  require("sjlabelled") &&
  require("haven") &&
  require("sjPlot")
)) {

  # glm, logistic regression ----
  data(efc)
  efc$gewicht <- rnorm(nrow(efc), 1, .2)

  test_that("plot_grpfrq", {
    p <- plot_grpfrq(efc$e17age, efc$e16sex)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot")
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "line")
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot")
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin")

    p <- plot_grpfrq(efc$e17age, efc$e16sex, bar.pos = "stack")

    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", intr.var = efc$c172code)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin", intr.var = efc$c172code)

    p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = FALSE)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = FALSE, show.n = TRUE)

    p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = TRUE, show.n = TRUE)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot", show.values = TRUE, show.n = TRUE)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, show.values = TRUE, show.n = TRUE, show.prc = TRUE)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot", show.values = TRUE, show.n = TRUE, show.prc = TRUE)

    p <- plot_grpfrq(efc$e17age, efc$e16sex, show.grpcnt = TRUE)
    expect_message(p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", show.grpcnt = TRUE))
    expect_message(p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", intr.var = efc$c172code, show.grpcnt = TRUE))

    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "bar", show.grpcnt = TRUE)

    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot")
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "dot", show.ci = T)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "line", show.ci = T)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "boxplot", show.ci = T)
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin", show.ci = T)

    p <- plot_grpfrq(efc$e42dep, efc$e16sex, weight.by = efc$gewicht)
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "dot", weight.by = efc$gewicht)
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "line", weight.by = efc$gewicht)
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "boxplot", weight.by = efc$gewicht)
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "violin", weight.by = efc$gewicht)

    p <- plot_grpfrq(efc$e42dep, efc$e16sex, legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("gar nicht", "leicht", "mittel", "schwer"))
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "dot", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("gar nicht", "leicht", "mittel", "schwer"))
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "line", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("gar nicht", "leicht", "mittel", "schwer"))
    p <- plot_grpfrq(efc$e42dep, efc$e16sex, type = "boxplot", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("A", "B"))
    p <- plot_grpfrq(efc$e17age, efc$e16sex, type = "violin", legend.title = "Geschlecht", legend.labels = c("M", "W"), axis.titles = "Dependency", axis.labels = c("A", "B"))
  })
}