DT1B

Combine Treatment Arms in Demographics Table

The tables below compare the overall population (“All”) with the biomarker evaluable population (“BEP”) with regards to selected demographic variables.

We will use the cadsl data set from the random.cdisc.data package to illustrate the tables. We add a second artificial BEP flag variable BEP02FL.

In order to compare All with BEP, we need to define a list bep_groups defining these two groups. The reason is that these two groups are overlapping (BEP is a subset of All). Here, we refer in the list elements to the levels Y and N of the biomarker population flag variable BEP01FL from adsl which we will use below:

Code

library(tern)
library(dplyr)

set.seed(123)
adsl <- random.cdisc.data::cadsl %>%
  df_explicit_na() %>%
  mutate(BEP02FL = factor(sample(c("Y", "N"), size = n(), replace = TRUE)))

bep_groups <- list(
  "All" = c("Y", "N"),
  "BEP" = "Y"
)

This can then be used by the tern layout function split_cols_by_groups() below.

It is simple to omit the treatment arm split in the demographics table DT1, thus effectively combining the treatment arms.

Code

lyt <- basic_table() %>%
  split_cols_by_groups("BEP01FL", bep_groups) %>%
  analyze_vars(c("AGE", "SEX")) %>%
  add_colcounts()

build_table(lyt, adsl)

                  All           BEP    
                (N=400)       (N=197)  
———————————————————————————————————————
AGE                                    
  n               400           197    
  Mean (SD)   34.9 (7.4)    34.6 (7.7) 
  Median         34.0          34.0    
  Min - Max   20.0 - 69.0   21.0 - 69.0
SEX                                    
  n               400           197    
  F           231 (57.8%)    126 (64%) 
  M           169 (42.2%)    71 (36%)

Code

sessionInfo()

R version 4.4.1 (2024-06-14)
Platform: x86_64-pc-linux-gnu
Running under: Ubuntu 22.04.4 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.20.so;  LAPACK version 3.10.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] dplyr_1.1.4      tern_0.9.5       rtables_0.6.9    magrittr_2.0.3  
[5] formatters_0.5.9

loaded via a namespace (and not attached):
 [1] Matrix_1.7-0             gtable_0.3.5             jsonlite_1.8.8          
 [4] compiler_4.4.1           tidyselect_1.2.1         stringr_1.5.1           
 [7] tidyr_1.3.1              splines_4.4.1            scales_1.3.0            
[10] yaml_2.3.10              fastmap_1.2.0            lattice_0.22-6          
[13] ggplot2_3.5.1            R6_2.5.1                 generics_0.1.3          
[16] knitr_1.48               forcats_1.0.0            rbibutils_2.2.16        
[19] htmlwidgets_1.6.4        backports_1.5.0          checkmate_2.3.2         
[22] tibble_3.2.1             munsell_0.5.1            pillar_1.9.0            
[25] rlang_1.1.4              utf8_1.2.4               broom_1.0.6             
[28] stringi_1.8.4            xfun_0.47                cli_3.6.3               
[31] Rdpack_2.6.1             digest_0.6.37            grid_4.4.1              
[34] lifecycle_1.0.4          vctrs_0.6.5              evaluate_0.24.0         
[37] glue_1.7.0               codetools_0.2-20         survival_3.7-0          
[40] random.cdisc.data_0.3.15 fansi_1.0.6              colorspace_2.1-1        
[43] purrr_1.0.2              rmarkdown_2.28           tools_4.4.1             
[46] pkgconfig_2.0.3          htmltools_0.5.8.1

Reuse