intro.R
In DemographicTable: Create Demographic Table

## -----------------------------------------------------------------------------
#| eval: false
#| echo: false
# pak::pak('tingtingzhan/DemographicTable')


## -----------------------------------------------------------------------------
#| eval: false
# utils::install.packages('DemographicTable')


## -----------------------------------------------------------------------------
library(DemographicTable)


## -----------------------------------------------------------------------------
datasets::penguins |>
  subset.data.frame(select = c('species', 'island', 'bill_len')) |>
  DemographicTable(data.name = 'datasets::penguins') |>
  print()


## -----------------------------------------------------------------------------
#| lst-label: lst-penguins_sex
#| lst-cap: '`penguins` by `sex`'
datasets::penguins |>
  subset.data.frame(select = c('sex', 'species', 'bill_dep')) |>
  DemographicTable(by = ~ sex, data.name = 'datasets::penguins') |> 
  print()


## -----------------------------------------------------------------------------
datasets::penguins |>
  subset.data.frame(select = c('sex', 'species', 'bill_dep')) |>
  DemographicTable(by = ~ sex, data.name = 'datasets::penguins', compare = FALSE) |>
  print()


## -----------------------------------------------------------------------------
datasets::penguins |>
  subset.data.frame(select = c('sex', 'island', 'species', 'bill_dep')) |>
  DemographicTable(by = ~ sex + island, data.name = 'datasets::penguins', compare = FALSE) |> 
  print()


## -----------------------------------------------------------------------------
male = datasets::penguins |>
  subset(subset = (sex == 'male'), select = c('island', 'species', 'bill_dep')) |>
  DemographicTable(by = ~ island, data.name = 'Male Penguins', compare = FALSE)


## -----------------------------------------------------------------------------
female = datasets::penguins |>
  subset(subset = (sex == 'female'), select = c('island', 'species', 'bill_dep')) |>
  DemographicTable(by = ~ island, data.name = 'Female Penguins', compare = FALSE)


## -----------------------------------------------------------------------------
c(male, female) |> 
  print()


## -----------------------------------------------------------------------------
tb = datasets::penguins |>
  subset.data.frame(select = c('sex', 'island', 'species', 'bill_dep')) |>
  DemographicTable(by = ~ sex + island, data.name = 'datasets::penguins', compare = FALSE)
tb[-1L] |> 
  print()


## -----------------------------------------------------------------------------
c(male, female)[2:4] |> 
  print()


## -----------------------------------------------------------------------------
c(male, female)[c(2L, 4L)] |> 
  print()


## -----------------------------------------------------------------------------
#| warning: false
#| lst-label: lst-logical
#| lst-cap: 'Using `logical` values is discouraged'
datasets::mtcars |>
  within.data.frame(expr = {
    vs_straight = as.logical(vs)
    am_manual = as.logical(am)
  }) |>
  subset.data.frame(select = c('am_manual', 'drat', 'vs_straight')) |>
  DemographicTable(by = ~ am_manual, data.name = 'mtcars') |>
  print()


## -----------------------------------------------------------------------------
#| lst-label: lst-factor
#| lst-cap: 'We recommend using 2-`level` `factor`s'
datasets::mtcars |>
  within.data.frame(expr = {
    vs = ifelse(vs, yes = 'Straight', no = 'V-shaped')
    am = ifelse(am, yes = 'manual', no = 'automatic')
  }) |> 
  subset.data.frame(select = c('am', 'drat', 'vs')) |>
  DemographicTable(by = ~ am, data.name = 'mtcars') |>
  print()