## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(ezrsurvey)

## -----------------------------------------------------------------------------
crosstab_banner(
  podracing_survey,
  rows = c(satis_return, demo_edu),
  cols = c(demo_gender, region)
)

## -----------------------------------------------------------------------------
crosstab_banner(
  podracing_survey,
  rows = dplyr::starts_with("ratings_"),
  cols = demo_gender
)

## -----------------------------------------------------------------------------
crosstab_banner(
  podracing_survey,
  rows = c(nps_value, demo_age),
  cols = demo_gender
)

## -----------------------------------------------------------------------------
crosstab_banner(
  podracing_survey,
  rows = satis_return,
  cols = demo_gender,
  cell = "diff"
)

## -----------------------------------------------------------------------------
set_weights(c(variable = "demo_gender",
              "Male" = 0.49, "Female" = 0.50, "Non-binary" = 0.01))

crosstab_banner(
  podracing_survey,
  rows = satis_return,
  cols = region
)

clear_weights()