# NOT RUN {
library(dplyr)
lb <- safetyData::sdtm_lb
sub_ids <- unique(lb$USUBJID)[1:100]
lb<-lb %>% filter(USUBJID %in% sub_ids)
settings <- list(
value_col = "LBORRES",
measure_col = "LBTEST",
measure_values = c("Chloride"),
visit_col = "VISIT",
visitn_col = "VISITNUM",
axis = "log"
)
safety_results_over_time(lb, settings)
# remove unscheduled visits, add violin plot and 2nd panel
settings$drop_visit_string <- "unscheduled"
settings$violins <- TRUE
settings$measure_values <- c("Albumin")
safety_results_over_time(lb, settings)
# add grouping by treatment
dm_sub <- safetyData::sdtm_dm %>% select(USUBJID, ARM)
dm_lb <- dm_sub %>% left_join(lb)
settings$group_col <- "ARM"
safety_results_over_time(dm_lb, settings)
# }
Run the code above in your browser using DataLab