Skip to contents

Create Summary Tables Using table1 with Custom Formatting

Source: R/margot_make_tables.R
margot_make_tables.Rd

margot_make_tables is a wrapper for table1::table1() which simplifies the creation of summary tables. It provides custom variable labelling, formatting, factor conversion, and additional table options. This function is optimized for "markdown" and "latex" outputs, with special support for Quarto documents.

Usage

margot_make_tables(
  data,
  vars,
  by,
  labels = NULL,
  factor_vars = NULL,
  table1_opts = list(),
  format = c("markdown", "latex"),
  kable_opts = list(),
  quarto_label = NULL
)

Arguments

data

A data.frame containing the dataset.

vars

A character vector of variable names to include on the left-hand side of the table.

by

A character vector of variable names to stratify the table by. Supports multiple variables for interactions.

labels

A named character vector for custom variable labels. Names should correspond to variable names in vars.

factor_vars

An optional character vector of variable names in vars to convert to factors for frequency tables.

table1_opts

A list of additional options to pass to table1::table1(). For example, list(overall = FALSE, transpose = TRUE).

format

A character string specifying the output format. Options are "markdown" (default) or "latex".

kable_opts

A list of additional options controlling table styling:

  • For format = "latex", these are passed to kableExtra::kable_styling().

  • For format = "markdown", currently only for documentation purposes.

quarto_label

An optional label for Quarto cross-references (e.g., "tbl-demographics"). When specified for LaTeX output, this adds a \label{} command to enable Quarto's cross-referencing system.

Value

A table object formatted for the specified output:

  • For format = "latex", a kableExtra-formatted LaTeX table with optional Quarto label

  • For format = "markdown", a markdown-formatted kable table with bold variable names

Examples

if (FALSE) { # \dontrun{
  # LaTeX output with Quarto label
  latex_table <- margot_make_tables(
    data = mydata,
    vars = c("age", "gender", "income"),
    by = "group",
    labels = c("age" = "Age", "gender" = "Gender", "income" = "Income"),
    factor_vars = "gender",
    table1_opts = list(overall = FALSE, transpose = TRUE),
    format = "latex",
    quarto_label = "tbl-demographics"
  )
} # }