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

## ----setup--------------------------------------------------------------------
library(ggstratify)

## ----eval = FALSE-------------------------------------------------------------
# dat <- transform(
#   dat,
#   sex = factor(sex, levels = c("Male", "Female")),
#   severity = factor(severity, levels = c("Mild", "Moderate", "Severe")),
#   age = as.numeric(age)
# )

## ----eval = FALSE-------------------------------------------------------------
# cohort <- read.csv("cohort.csv")
# str(cohort)
# ggstratify(cohort)

## ----eval = FALSE-------------------------------------------------------------
# ggstratify(epi_cohort)

## -----------------------------------------------------------------------------
str(epi_cohort)

## ----eval = FALSE-------------------------------------------------------------
# dt[, age_cat := cut(age, breaks = c(-Inf, 65, Inf))]

## ----eval = FALSE-------------------------------------------------------------
# library(data.table)
# library(ggplot2)
# 
# dt <- as.data.table(epi_cohort)
# 
# d <- dt[sex == "Male"]
# 
# p <- ggplot(d, aes(x = treatment, y = los_days)) +
#   geom_boxplot() +
#   theme_bw()
# 
# p