整理论文基线数据的function

在做临床论文，整理基线数据的时候，遇到很多分类变量，比如说性别，种族，合并症，用药等等，一个一个整理比较麻烦，就写了一个function，可以比较方便地整理数据。

原始数据的样式：

这个function设置了3个参数：需要整理的表格名，要整理的列，作为分类依据的变量

baselinetable <- function(table_name, cols, index){
   
  table_name <- as.data.frame(table_name)
  temp_table <- data.frame()
  for (i in cols) {
   
    temp <- table(table_name[,i], table_name[,index])
    temp2 <- chisq.test(temp, correct = TRUE) #可以根据需要换成 fisher.test()
    temp_0 <-