自动化绘制文章表格：gtsummary

持续学习是为了提高效率及改变思维。

参考官方文档：https://www.danieldsjoberg.com/gtsummary/

下文将使用mtcar作为例用数据，使用gtsummary包中的函数，进行表格绘制的演示。
该包可以自动化导出可直接用于投稿的表格。

```r
```r
library(datasets)
data(mtcars)
str(mtcars)

for (i in names(mtcars)[c(2,8)]) {
  mtcars[,i] <- as.factor(mtcars[,i])
}

#install.packages("gtsummary")
library(gtsummary)
library(dplyr)

#绘制未分组的基线数据table############
trial2 <- mtcars 
table1 <- tbl_summary(trial2)
table1

?tbl_summary()#更多参数可调

当然，可以分组后让他自己检测组间差异。

table2 <- 
  tbl_summary(
    trial2,
    by = vs, # split table by group
    missing = "no" # don't list missing data separately
  ) %>%
  add_n() %>% # add column with total number of non-missing observations
  add_p() %>% # test for a difference between groups
  modify_header(label = "**Variable**") %>% # update the column header
  bold_labels() 

如果是回归模型，需要使用tbl_regression()

mod1 <- glm(vs ~ mpg+hp+drat, mtcars,family = binomial)
t1 <- tbl_regression(mod1, exponentiate = TRUE)

输出结果是pdf，但可以保存为webpage格式，复制粘贴到excel，自行进行调整。