library(pacman)
plan1$ITEM_NAME
pacman::p_load(tableone)
table1 <- CreateTableOne(vars = ecls_cov, data = plan1, strata = 'ITEM_NAME')
table1 <- print(table1, printToggle = FALSE, noSpaces = TRUE)
knitr::kable(table1[,1:3], align = 'c', caption = 'Comparison of unmatched samples')
#按CRvsnonCR疗效分组对比各变量
library(pacman)
vars = names(mydata[,-c(25,26,28)])
factorVars = names(mydata[,-c(2,25,26,27,28)])
pacman::p_load(tableone)
table1 <- CreateTableOne(vars = vars, factorVars = factorVars,data = mydata, strata = 'CRvsnonCR')
table1 <- print(table1, printToggle = FALSE, noSpaces = TRUE)
knitr::kable(table1[,1:3], align = 'c', caption = 'Comparison of unmatched samples')