library(dplyr)
adlb_filtered <- eg_adlb %>% filter(
PARAMCD == "CRP"
)
plot_lb <- g_lb_slide(
adsl = eg_adsl,
adlb = adlb_filtered,
paramcd = "PARAM",
subtitle_add_unit = FALSE
) +
ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 45, hjust = 1))
generate_slides(plot_lb, paste0(tempdir(), "/g_lb.pptx"))
# Let's plot change values:
plot_lb_chg <- g_lb_slide(
adsl = eg_adsl,
adlb = adlb_filtered,
paramcd = "PARAM",
y = "CHG",
subtitle = "Plot of change from baseline and 95% Confidence Limit by Visit."
)
generate_slides(plot_lb_chg, paste0(tempdir(), "/g_lb_chg.pptx"))
Run the code above in your browser using DataLab