PKPL04

Listing of Individual Drug A AUCIFO and CMAX Ratios Following Drug A or Drug B

Output

Standard Listing - CYCLE 1 DAY 1
Data Setup

Preview
Try this using WebR

Code

lsting <- as_listing(
  out,
  key_cols = "USUBJID",
  disp_cols = names(out),
  main_title = paste0(
    "Listing of Individual ", drug_a, " ", paste(unique(adpp_x$PARAM), collapse = " and "), " Ratios following ",
    unique(adpp_x$REGIMEN), " ", paste(drug_a, drug_b, sep = " or "), ", PK Population\nProtocol: xxnnnnn",
    "\nVisit: ", unique(adpp_x$AVISIT)
  ),
  subtitles = paste0("\nAnalytes: ", paste(drug_a, drug_b, sep = " and "))
)

head(lsting, 20)

Listing of Individual Plasma Drug X AUC Infinity Obs and Max Conc Ratios following BID Plasma Drug X or Plasma Drug Y, PK Population
Protocol: xxnnnnn
Visit: CYCLE 1 DAY 1

Analytes: Plasma Drug X and Plasma Drug Y

——————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
                        AUC Infinity Obs (day*ug/mL)   AUC Infinity Obs (day*ug/mL)   AUC Infinity Obs (day*ug/mL)   Max Conc (ug/mL)   Max Conc (ug/mL)        Max Conc (ug/mL)      
     Subject ID                Plasma Drug X                  Plasma Drug Y           Plasma Drug X/Plasma Drug Y     Plasma Drug X      Plasma Drug Y     Plasma Drug X/Plasma Drug Y
——————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
AB12345-BRA-1-id-105          246.349321001289                      NA                             NA                31.2264481880236          NA                      NA             
AB12345-BRA-1-id-134          248.519038520728                      NA                             NA                21.7795763901966          NA                      NA             
AB12345-BRA-1-id-141          204.038850147211               191.797779791421               1.06382279486812         29.5409649407056   38.8911230490524        0.759581174949522     
AB12345-BRA-1-id-265          196.360864588266               218.652833415662              0.898048570973609         35.6328283094637   34.2215467219396        1.04123956170044      
 AB12345-BRA-1-id-42          210.528307366678                      NA                             NA                26.7845825535397          NA                      NA             
 AB12345-BRA-1-id-93          160.406798051843                      NA                             NA                17.5296885232566          NA                      NA             
AB12345-BRA-11-id-171         217.543269983548               180.798322952882               1.20323721166508         30.3782220474834   31.615072576154         0.960877820992148     
AB12345-BRA-11-id-217         272.094354596647                      NA                             NA                34.2812274648873          NA                      NA             
AB12345-BRA-11-id-237         148.094218281784               193.694022424355              0.764578154907287         32.9103242471385   38.7385450224575        0.849549827647366     
AB12345-BRA-11-id-321         206.178847103577               216.464946980475               0.95248145244585         33.0064256549217   28.4783979285037         1.1589986816599      
AB12345-BRA-11-id-345         228.51025073098                       NA                             NA                39.7523164840323          NA                      NA             
AB12345-BRA-11-id-397         201.536920713046                      NA                             NA                36.5841424116449          NA                      NA             
AB12345-BRA-11-id-50          189.012389008811                      NA                             NA                21.1977400008473          NA                      NA             
 AB12345-BRA-11-id-9          235.477941027941               207.851453783084               1.13291457308587         27.1559637630099   28.2923295654501        0.959834844995305     
AB12345-BRA-13-id-177         185.956676853099                      NA                             NA                31.0405525087113          NA                      NA             
AB12345-BRA-14-id-120         209.878908685802               301.584778421544              0.695920098435608         31.8076450080362   22.9229189133965        1.38759139393227      
AB12345-BRA-14-id-23          270.799396057463                      NA                             NA                29.2804222629517          NA                      NA             
AB12345-BRA-15-id-36          183.877364155027                      NA                             NA                37.9405096212457          NA                      NA             
AB12345-BRA-2-id-296          216.092875093089                      NA                             NA                27.3509307000219          NA                      NA             
AB12345-BRA-4-id-368          203.23438144437                149.30280248041                1.36122281744199         38.3952821076341   30.8121148640987        1.24610992387189

Experimental use!

WebR is a tool allowing you to run R code in the web browser. Modify the code below and click run to see the results. Alternatively, copy the code and click here to open WebR in a new tab.

Code

library(dplyr)
library(rlistings)

adpp <- random.cdisc.data::cadpp

visit <- "CYCLE 1 DAY 1"
drug_a <- "Plasma Drug X" # numerator drug
drug_b <- "Plasma Drug Y" # denominator drug

adpp_x <- adpp %>%
  filter(
    AVISIT == visit,
    PPCAT %in% c(drug_a, drug_b),
    PARAMCD %in% c("CMAX", "AUCIFO")
  ) %>%
  mutate(
    PARAM_U = paste0(PARAM, " (", AVALU, ")")
  )

adpp_ratio <- adpp_x %>%
  tidyr::pivot_wider(
    id_cols = c(USUBJID, PARAM_U),
    names_from = PPCAT,
    values_from = AVAL
  )

adpp_ratio[, paste0(drug_a, "/", drug_b)] <- as.numeric(unlist(adpp_ratio[, drug_a] / adpp_ratio[, drug_b]))

out <- adpp_ratio %>%
  tidyr::pivot_wider(
    id_cols = USUBJID,
    names_from = PARAM_U,
    names_glue = "{PARAM_U}\n{.value}",
    values_from = c(all_of(drug_a), all_of(drug_b), paste0(drug_a, "/", drug_b))
  ) %>%
  select(names(.)[c(1:2, 4, 6, 3, 5, 7)])

var_labels(out) <- names(out)
out <- out %>% var_relabel(USUBJID = "Subject ID")

Reproducibility

Timestamp

[1] "2025-07-09 17:36:10 UTC"

Session Info

─ Session info ───────────────────────────────────────────────────────────────
 setting  value
 version  R version 4.5.0 (2025-04-11)
 os       Ubuntu 24.04.2 LTS
 system   x86_64, linux-gnu
 ui       X11
 language (EN)
 collate  en_US.UTF-8
 ctype    en_US.UTF-8
 tz       Etc/UTC
 date     2025-07-09
 pandoc   3.7.0.2 @ /usr/bin/ (via rmarkdown)
 quarto   1.7.32 @ /usr/local/bin/quarto

─ Packages ───────────────────────────────────────────────────────────────────
 package           * version date (UTC) lib source
 backports           1.5.0   2024-05-23 [1] RSPM
 brio                1.1.5   2024-04-24 [1] RSPM
 checkmate           2.3.2   2024-07-29 [1] RSPM
 cli                 3.6.5   2025-04-23 [1] RSPM
 codetools           0.2-20  2024-03-31 [2] CRAN (R 4.5.0)
 curl                6.4.0   2025-06-22 [1] RSPM
 digest              0.6.37  2024-08-19 [1] RSPM
 dplyr             * 1.1.4   2023-11-17 [1] RSPM
 evaluate            1.0.4   2025-06-18 [1] RSPM
 fastmap             1.2.0   2024-05-15 [1] RSPM
 formatters        * 0.5.11  2025-04-09 [1] RSPM
 generics            0.1.4   2025-05-09 [1] RSPM
 glue                1.8.0   2024-09-30 [1] RSPM
 htmltools           0.5.8.1 2024-04-04 [1] RSPM
 htmlwidgets         1.6.4   2023-12-06 [1] RSPM
 jsonlite            2.0.0   2025-03-27 [1] RSPM
 knitr               1.50    2025-03-16 [1] RSPM
 lifecycle           1.0.4   2023-11-07 [1] RSPM
 magrittr            2.0.3   2022-03-30 [1] RSPM
 pillar              1.11.0  2025-07-04 [1] RSPM
 pkgcache            2.2.4   2025-05-26 [1] RSPM
 pkgconfig           2.0.3   2019-09-22 [1] RSPM
 processx            3.8.6   2025-02-21 [1] RSPM
 ps                  1.9.1   2025-04-12 [1] RSPM
 purrr               1.0.4   2025-02-05 [1] RSPM
 R6                  2.6.1   2025-02-15 [1] RSPM
 random.cdisc.data   0.3.16  2024-10-10 [1] RSPM
 rlang               1.1.6   2025-04-11 [1] RSPM
 rlistings         * 0.2.12  2025-06-15 [1] RSPM
 rmarkdown           2.29    2024-11-04 [1] RSPM
 sessioninfo         1.2.3   2025-02-05 [1] any (@1.2.3)
 stringi             1.8.7   2025-03-27 [1] RSPM
 stringr             1.5.1   2023-11-14 [1] RSPM
 testthat            3.2.3   2025-01-13 [1] RSPM
 tibble            * 3.3.0   2025-06-08 [1] RSPM
 tidyr               1.3.1   2024-01-24 [1] RSPM
 tidyselect          1.2.1   2024-03-11 [1] RSPM
 vctrs               0.6.5   2023-12-01 [1] RSPM
 withr               3.0.2   2024-10-28 [1] RSPM
 xfun                0.52    2025-04-02 [1] RSPM
 yaml                2.3.10  2024-07-26 [1] RSPM

 [1] /usr/local/lib/R/site-library
 [2] /usr/local/lib/R/library
 [3] /github/home/R/x86_64-pc-linux-gnu-library/4.5
 * ── Packages attached to the search path.

──────────────────────────────────────────────────────────────────────────────

`.lock` file

Download the .lock file and use renv::restore() on it to recreate environment used to generate this website.

Download

Output

Reproducibility

Timestamp

Session Info

.lock file

`.lock` file