CohortCharacteristics (version 1.1.1)

plotCohortAttrition: create a ggplot from the output of summariseLargeScaleCharacteristics.

Description

Usage

plotCohortAttrition(
  result,
  show = c("subjects", "records"),
  type = "htmlwidget",
  cohortId = lifecycle::deprecated()
)

Value

A grViz visualisation.

Arguments

result

A summarised_result object.

show

Which variables to show in the attrition plot, it can be 'subjects', 'records' or both.

type

type of the output, it can either be: 'htmlwidget', 'png', or 'DiagrammeR'.

cohortId

deprecated.

Examples

# \donttest{
library(CohortCharacteristics)
library(omopgenerics)
library(dplyr, warn.conflicts = FALSE)
library(clock)

cdm <- mockCohortCharacteristics(numberIndividuals = 1000)

cdm[["cohort1"]] <- cdm[["cohort1"]] |>
  filter(get_year(cohort_start_date) >= 2000) |>
  recordCohortAttrition("Restrict to cohort_start_date >= 2000") |>
  filter(get_year(cohort_end_date) < 2020) |>
  recordCohortAttrition("Restrict to cohort_end_date < 2020") |>
  compute(temporary = FALSE, name = "cohort1")

result <- summariseCohortAttrition(cdm$cohort1)

result |>
  filter(group_level == "cohort_2") |>
  plotCohortAttrition()

# }