FDA Figure 14

Mean and 95% Confidence Interval of Systolic Blood Pressure Over Time by Treatment Arm, Safety Population, Trial X

# Load Libraries & Data
library(cardinal)

advs <- random.cdisc.data::cadvs

make_fig_14(
  df = advs,
  add_cond = bquote("ONTRTFL == 'Y' | ABLFL == 'Y'"),
  add_table = TRUE,
  yticks = c(135, 140, 145, 150, 155, 160)
)

make_fig_14()

Required variables:

  • df: The variables AVAL and PARAMCD, and the variables specified by arm_var, saffl_var, and visit_var.
Argument Description Default
df (data.frame) Dataset (typically ADVS) required to build table. No default
arm_var (character) Arm variable used to split table into columns. "ARM"
saffl_var (character) Flag variable used to indicate inclusion in safety population. "SAFFL"
visit_var (character) Visit variable to put on the x-axis. "AVISIT"
paramcd_val (character) Value of PARAMCD to plot. "SYSBP"
add_cond (expression) Additional filter for the analysis (e.g on ATPT or VSPOS). NULL
x_lab (character) x-axis label. paste0("Time from first dose (", u_trtdur, ")")
y_lab (character) y-axis label. "Percent of Patients (%)"
yticks (vector of numeric) y-axis tick positions. If NA (default), tick mark positions are automatically calculated. NA
ggtheme (function) Function from ggplot2 to apply over the plot. NULL
add_table (flag) whether “Number of Patients” table should be printed under the plot. TRUE
annotations (named list of character) List of annotations to add to the table. Valid annotation types are title, subtitles, and caption. Each name-value pair should use the annotation type as name and the desired string as value. NULL

Source code for this function is available here.