🤩 autoReg | 自带统计值的table1（一）

1写在前面

之前介绍的table1包输出的表格十分精美，但美中不足的是没有统计值，我们还需要自己编写函数，进行统计值的计算。

本期介绍一个git上的神包，autoReg，完美完成你的table1。

2用到的包

rm(list = ls())
#devtools::install_github("cardiomoon/autoReg")
library(autoReg)
library(tidyverse)

3示例数据

本期使用示例数据为moonBook包中的acs数据。

library(moonBook) 
dat <- acs

4基线描述

这里使用gaze函数就可以完成了。

当然你也可以用之前我们介绍的table1包进行基线描述，具体大家公众号内点击往期精彩吧。
输出结果至word或ppt的话这里我们使用rrtable包吧。

4.1 简单分组

这里我们按sex的不同进行分组。

baseline <- gaze(sex~.,data=dat) %>% 
  myft()

baseline

library(rrtable)
table2docx(baseline)

---

4.2 复杂分组

我们再加一个分组变量，Dx，看一下结果。

gaze(sex+Dx~.,data=dat) %>% 
myft()

---

最后祝大家早日不卷!~

---

点个在看吧各位~ ✐.ɴɪᴄᴇ ᴅᴀʏ 〰