jamesbang

V1

2022/09/12阅读:26主题:雁栖湖

🤩 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包进行基线描述,具体大家公众号内点击往期精彩吧。
输出结果至wordppt的话这里我们使用rrtable包吧。

4.1 简单分组

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

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

baseline

library(rrtable)
table2docx(baseline)

4.2 复杂分组

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

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

最后祝大家早日不卷!~

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

分类:

后端

标签:

后端

作者介绍

jamesbang
V1

wx🔍: Grassssss 卷起来了