table1 패키지

table1은 HTML 형식의 표를 쉽게 만들어 주는 패키지로 보고서 작성할 때 유용할 것 같습니다. (Rich 2018)

library(table1)
dat <- expand.grid(id=1:10, sex=c("Male", "Female"), treat=c("Treated", "Placebo"))
dat$age <- runif(nrow(dat), 10, 50)
dat$age[3] <- NA  # Add a missing value
dat$wt <- exp(rnorm(nrow(dat), log(70), 0.2))

label(dat$sex) <- "Sex"
label(dat$age) <- "Age"
label(dat$treat) <- "Treatment Group"
label(dat$wt) <- "Weight"

units(dat$age) <- "years"
units(dat$wt) <- "kg"

# One level of stratification
table1(~ sex + age + wt | treat, data=dat)

아래는 Theoph 농도 자료를 NonCompart (Bae 2018) 패키지를 사용하여 약동학 파라메터를 구하고 표를 만든 것입니다.

library(tidyverse)
library(NonCompart)
dat_Theoph <- tblNCA(Theoph, key="Subject", dose=320, concUnit="mg/L") %>% 
  as.tibble() %>% 
  mutate_all(funs(as.numeric)) %>% 
  mutate(treat = ifelse(Subject <= 6, 'Treated', 'Placebo')) %>% 
  select(Subject, CMAX, TMAX, AUCLST, LAMZHL, CLFO, treat)

table1(~ CMAX + TMAX + AUCLST + LAMZHL + CLFO | treat, data = dat_Theoph)