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] "2024-11-20 18:17:32 UTC"

Session Info

─ Session info ───────────────────────────────────────────────────────────────
 setting  value
 version  R version 4.4.1 (2024-06-14)
 os       Ubuntu 22.04.5 LTS
 system   x86_64, linux-gnu
 ui       X11
 language (EN)
 collate  en_US.UTF-8
 ctype    en_US.UTF-8
 tz       Etc/UTC
 date     2024-11-20
 pandoc   3.4 @ /usr/bin/ (via rmarkdown)

─ 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.3       2024-06-21 [1] RSPM
 codetools           0.2-20      2024-03-31 [2] CRAN (R 4.4.1)
 curl                6.0.1       2024-11-14 [1] RSPM
 digest              0.6.37      2024-08-19 [1] RSPM
 dplyr             * 1.1.4       2023-11-17 [1] RSPM
 evaluate            1.0.1       2024-10-10 [1] RSPM
 fansi               1.0.6       2023-12-08 [1] RSPM
 fastmap             1.2.0       2024-05-15 [1] RSPM
 formatters        * 0.5.9.9003  2024-11-20 [1] https://p~
 generics            0.1.3       2022-07-05 [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            1.8.9       2024-09-20 [1] RSPM
 knitr               1.49        2024-11-08 [1] RSPM
 lifecycle           1.0.4       2023-11-07 [1] RSPM
 magrittr            2.0.3       2022-03-30 [1] RSPM
 pillar              1.9.0       2023-03-22 [1] RSPM
 pkgcache            2.2.3       2024-09-12 [1] RSPM
 pkgconfig           2.0.3       2019-09-22 [1] RSPM
 processx            3.8.4       2024-03-16 [1] RSPM
 ps                  1.8.1       2024-10-28 [1] RSPM
 purrr               1.0.2       2023-08-10 [1] RSPM
 R6                  2.5.1       2021-08-19 [1] RSPM
 random.cdisc.data   0.3.16.9001 2024-11-20 [1] https://p~
 rlang               1.1.4       2024-06-04 [1] RSPM
 rlistings         * 0.2.9.9009  2024-11-20 [1] https://p~
 rmarkdown           2.29        2024-11-04 [1] RSPM
 sessioninfo         1.2.2       2021-12-06 [1] any (@1.2.2)
 stringi             1.8.4       2024-05-06 [1] RSPM
 stringr             1.5.1       2023-11-14 [1] RSPM
 testthat            3.2.1.1     2024-04-14 [1] RSPM
 tibble            * 3.2.1       2023-03-20 [1] RSPM
 tidyr               1.3.1       2024-01-24 [1] RSPM
 tidyselect          1.2.1       2024-03-11 [1] RSPM
 utf8                1.2.4       2023-10-22 [1] RSPM
 vctrs               0.6.5       2023-12-01 [1] RSPM
 withr               3.0.2       2024-10-28 [1] RSPM
 xfun                0.49        2024-10-31 [1] RSPM
 yaml                2.3.10      2024-07-26 [1] RSPM

 [1] /usr/local/lib/R/site-library
 [2] /usr/local/lib/R/library

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

`.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