create_table_one2: Make a Table 1.

In emilelatour/latable: Latour's Table Functions and Helpers

Make a Table 1.

Description

Wrapper function for tableone::CreateTableOne that adds in formatting and other preferences of mine. Per their documentation: The tableone package is an R package that eases the construction of "Table 1", i.e., patient baseline characteristics table commonly found in biomedical research papers. The packages can summarize both continuous and categorical variables mixed within one table. Categorical variables can be summarized as counts and/or percentages. Continuous variables can be summarized in the “normal” way (means and standard deviations) or "nonnormal" way (medians and interquartile ranges).

Usage

create_table_one2(
  data,
  strata = NULL,
  vars,
  fct_vars,
  catDigits = 1,
  contDigits = 2,
  pDigits = 3,
  show_smd = FALSE,
  keep_test = FALSE,
  var_labels = TRUE,
  exact = NULL,
  nonnormal = NULL,
  ...
)

Arguments

data	A data frame in which these variables exist. All variables (both vars and strata) must be in this data frame.
strata	Stratifying (grouping) variable name(s) given as a character vector. If omitted, the overall results are returned.
vars	Variables to be summarized given as a character vector. Factors are handled as categorical variables, whereas numeric variables are handled as continuous variables. If empty, all variables in the data frame specified in the data argument are used.
fct_vars	Numerically coded variables that should be handled as categorical variables given as a character vector. Do not include factors, unless you need to relevel them by removing empty levels. If omitted, only factors are considered categorical variables. The variables specified here must also be specified in the vars argument.
catDigits	Number of digits to print for proportions. Default 1.
contDigits	Number of digits to print for continuous variables. Default 2.
pDigits	Number of digits to print for p-values (also used for standardized mean differences). Default 3.
show_smd	Whether to show standardized mean differences. FALSE by default. If there are more than one contrasts, the average of all possible standardized mean differences is shown.
keep_test	Logical; Whether to keep the column named "test" FALSE by default.
var_labels	Whether to replace variable names with variable labels obtained from labelled::var_label() function.
exact	A character vector to specify the variables for which the p-values should be those of exact tests. By default all p-values are from large sample approximation tests (chisq.test).
nonnormal	A character vector to specify the variables for which the p-values should be those of nonparametric tests. By default all p-values are from normal assumptionbased tests (oneway.test).
...	Optional parameters

Value

A tbl_df

References

https://cran.r-project.org/web/packages/tableone/tableone.pdf

Examples

# Load some packages for the example
library(survival)
library(dplyr)
library(tibble)

# Data set comes from the survival package
data(pbc)

## Vector of variables to summarize
myVars <- c("time", "status", "trt", "age", "sex", "ascites", "hepato",
          "spiders", "edema", "bili", "chol", "albumin", "copper", "alk.phos",
          "ast", "trig", "platelet", "protime", "stage")
## Vector of categorical variables that need transformation
catVars <- c("status", "trt", "ascites", "hepato",
             "spiders", "edema", "stage")

#### Example 1 --------------------------------

# With strata
create_table_one(data = pbc,
                        strata = "trt",
                        vars = myVars,
                        fct_vars = catVars,
                        keep_test = FALSE,
                        show_smd = FALSE,
                        var_labels = FALSE)

# Without strata
create_table_one(data = pbc,
                        vars = myVars,
                        fct_vars = catVars,
                        keep_test = FALSE,
                        show_smd = FALSE,
                        var_labels = FALSE)



#### Example 2 --------------------------------

# With labels
library(labelled)

# Tibble with labels
var_labels <- tibble::tribble(
                     ~vars,                                      ~labels,
                      "id",                                "Case Number",
                    "time",          "Number of days since registration",
                  "status",                         "Status at endpoint",
                     "trt",                            "Treatment group",
                     "age",                              "Age, in years",
                     "sex",                                        "Sex",
                 "ascites",                        "Presence of ascites",
                  "hepato", "Presence of hepatomegaly or enlarged liver",
                 "spiders",     "Blood vessel malformations in the skin",
                   "edema",                          "Presence of edema",
                    "bili",                   "Serum bilirunbin (mg/dl)",
                    "chol",                  "Serum cholesterol (mg/dl)",
                 "albumin",                       "Serum albumin (g/dl)",
                  "copper",                      "Urine copper (ug/day)",
                "alk.phos",             "Alkaline phosphotase (U/liter)",
                     "ast",          "Aspartate aminotransferase (U/ml)",
                    "trig",                      "Triglycerides (mg/dl)",
                "platelet",                             "Platelet count",
                 "protime",           "Standardised blood clotting time",
                   "stage", "Histologic stage of disease (needs biopsy)"
                )

labels_list <- setNames(as.list(var_labels$labels), var_labels$vars)

# Apply labels
labelled::var_label(pbc) <- labels_list

# Table one with strata
create_table_one(data = pbc,
                 strata = "trt",
                 vars = myVars,
                 fct_vars = catVars,
                 keep_test = FALSE,
                 show_smd = FALSE,
                 var_labels = TRUE)

# Table one without strata
create_table_one(data = pbc,
                 # strata = "trt",
                 vars = myVars,
                 fct_vars = catVars,
                 keep_test = FALSE,
                 show_smd = FALSE, 
                 var_labels = TRUE)

emilelatour/latable documentation built on Sept. 14, 2023, 9:32 a.m.