DG1B

Histogram of One Numeric Variable by Treatment Arm

We will use the cadsl data set from the random.cdisc.data package and ggplot2 to create the plots. In this example, we will plot histograms of one or multiple numeric variables. We start by selecting the biomarker evaluable population with the flag variable BEP01FL and then populating a new continuous biomarker variable, BMRKR3.

Code

library(tern)
library(ggplot2.utils)
library(dplyr)
library(tibble)
library(tidyr)

adsl <- random.cdisc.data::cadsl %>%
  df_explicit_na() %>%
  filter(BEP01FL == "Y") %>%
  mutate(BMRKR3 = rnorm(n(), mean = 7, sd = 2))

Below example shows histograms for the BMRKR1 variable by treatment ARM. Including a statistics table in this graph works in the same way as we did above for DG1A.

Code

graph <- ggplot(adsl, aes(BMRKR1)) +
  geom_histogram(aes(y = after_stat(density)), bins = 30) +
  geom_density(aes(y = after_stat(density))) +
  facet_grid(ARM ~ .)

graph

Code

sessionInfo()

R version 4.4.2 (2024-10-31)
Platform: x86_64-pc-linux-gnu
Running under: Ubuntu 24.04.1 LTS

Matrix products: default
BLAS:   /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3 
LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.26.so;  LAPACK version 3.12.0

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

time zone: Etc/UTC
tzcode source: system (glibc)

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] tidyr_1.3.1         tibble_3.2.1        dplyr_1.1.4        
[4] ggplot2.utils_0.3.2 ggplot2_3.5.1       tern_0.9.7         
[7] rtables_0.6.11      magrittr_2.0.3      formatters_0.5.10  

loaded via a namespace (and not attached):
 [1] generics_0.1.3           EnvStats_3.0.0           stringi_1.8.4           
 [4] lattice_0.22-6           digest_0.6.37            evaluate_1.0.3          
 [7] grid_4.4.2               fastmap_1.2.0            jsonlite_1.9.0          
[10] Matrix_1.7-2             backports_1.5.0          survival_3.8-3          
[13] purrr_1.0.4              scales_1.3.0             codetools_0.2-20        
[16] Rdpack_2.6.2             cli_3.6.4                ggpp_0.5.8-1            
[19] nestcolor_0.1.3          rlang_1.1.5              rbibutils_2.3           
[22] munsell_0.5.1            splines_4.4.2            withr_3.0.2             
[25] yaml_2.3.10              tools_4.4.2              polynom_1.4-1           
[28] checkmate_2.3.2          colorspace_2.1-1         forcats_1.0.0           
[31] ggstats_0.8.0            broom_1.0.7              vctrs_0.6.5             
[34] R6_2.6.1                 lifecycle_1.0.4          stringr_1.5.1           
[37] htmlwidgets_1.6.4        MASS_7.3-64              pkgconfig_2.0.3         
[40] pillar_1.10.1            gtable_0.3.6             glue_1.8.0              
[43] xfun_0.51                tidyselect_1.2.1         knitr_1.49              
[46] farver_2.1.2             htmltools_0.5.8.1        labeling_0.4.3          
[49] rmarkdown_2.29           random.cdisc.data_0.3.16 compiler_4.4.2

Reuse