在做临床论文,整理基线数据的时候,遇到很多分类变量,比如说性别,种族,合并症,用药等等,一个一个整理比较麻烦,就写了一个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 <-