tableone

CreateTableOne(dat)  # dat without missing


# 一般使用以下的代码
vars <- colnames(dat)[3:6]
vars_Fac <- c("male", "white")  # 分类变量
table1 <- CreateTableOne(vars = vars, 
                               strata = "trt",   # 分组， 不需要分组分析时可以忽略这个参数
                               data = dat,
                               factorVars = vars_Fac,
                               test = T,  # 检验   
                               addOverall = T)  # 总体情况是否输出

table1 <- print(table1,
                printToggle = T, # 展示输出结果
                noSpaces = T, # 删除用于对齐的空格
                smd = TRUE, # 可以展示两组之间的standardized mean difference，不需要时忽略此行
                showALLLevels = T, # 显示所有（分类变量不同类别的情况）
                formatOptions = list(big.mark = ","))

kable(table1[, c(1:4,6)],  # 自行选择输出哪些
      align = "c",  # c, l , r
      caption = "Table 1: Comparison of the unmatched samples")