library(dplyr)
# Select a small sample of data to plot.
adlb <- tern_ex_adlb %>%
filter(PARAMCD == "ALT", !(AVISIT %in% c("SCREENING", "BASELINE"))) %>%
slice(1:36)
plot_list <- g_ipp(
df = adlb,
xvar = "AVISIT",
yvar = "AVAL",
xlab = "Visit",
ylab = "SGOT/ALT (U/L)",
title = "Individual Patient Plots",
add_baseline_hline = TRUE,
plotting_choices = "split_by_max_obs",
max_obs_per_plot = 5
)
plot_list
Run the code above in your browser using DataLab