The goal of tidytlg is to generate table, listings, and graphs (TLG)using Tidyverse. This can be achieved multiple ways with this package.
library(dplyr)library(tidytlg)# Note cdisc_adsl is built into the package for useittpop<-cdisc_adsl %>% filter(ITTFL=="Y")# frequency of Intend-to-Treat patients by planned treatmenttbl1<- freq(ittpop,rowvar="ITTFL",statlist= statlist("n"),colvar="TRT01P",rowtext="Analysis Set: Intend-to-Treat Population",subset=ITTFL=="Y")# N, MEAN (SD), MEDIAN, RANGE, IQ Range of age by planned treatmenttbl2<- univar(ittpop,rowvar="AGE",colvar="TRT01P",row_header="Age (Years)")# frequency of Race by planned treatmenttbl3<- freq(ittpop,rowvar="RACE",statlist= statlist(c("N","n (x.x%)")),colvar="TRT01P",row_header="Race, n(%)")# combine results togethertbl<- bind_table(tbl1,tbl2,tbl3)# conver to hux object -----------------------------------------------------------------gentlg(huxme=tbl ,orientation="landscape",file="DEMO",title="Custom Method",footers="Produced with tidytlg",colspan=list(c("","","Xanomeline","Xanomeline")),colheader= c("","Placebo","High","Low"),wcol=.30)library(dplyr)library(tidytlg)adsl<-cdisc_adsltable_metadata<-tibble::tribble(~anbr,~func,~df,~rowvar,~rowtext,~row_header,~statlist,~subset,1,"freq","adsl","ITTFL","Analysis set: itt",NA, statlist("n"),"ITTFL == 'Y'",2,"univar","adsl","AGE",NA,"Age (Years)",NA,NA,3,"freq","adsl","RACE",NA,"Race, n(%)", statlist(c("N","n (x.x%)")),NA) %>% mutate(colvar="TRT01PN")tbl<- generate_results(table_metadata,column_metadata_file= system.file("extdata/column_metadata.xlsx",package="tidytlg"),tbltype="type1")# conver to hux object -----------------------------------------------------------------tblid<-"Table01"gentlg(huxme=tbl,orientation="landscape",file=tblid,title_file= system.file("extdata/titles.xls",package="tidytlg"),wcol=.30)