如何做基线表

如何做基线表

rm(list =ls())

setwd("C:\\Users\\17657\\Desktop\\ska3")

options(repos='http://cran.rstudio.com/')

library(xlsx)

baseline<- read.xlsx('临床信息.xlsx',sheetIndex = 1,header = T,encoding = 'UTF-8')

baseline<-baseline[1:1096,]

base<-subset(baseline,select = c(age,T,M,N,stage,ER,PR,HER2,subtype))

Freq<-lapply(base[,1:9],table)

prop<-lapply(Freq[1:9],prop.table)

prop

character<-c(names(Freq[1]),names(Freq[[1]]))

Noc<-c(NA,paste0(Freq[[1]],'(',prop[[1]],')'))   

char<-NULL

characteristics<-data.frame('characteristics'=character,' number of class'=Noc)

for (i in 1:9) {character<-c(names(Freq[i]),names(Freq[[i]]))

Noc<-c(NA,paste0(Freq[[i]],'(',prop[[i]]*100,')'))           

characteristics<-data.frame('characteristics'=character,' number of class(%)'=Noc)

char<-rbind(char,characteristics)

}

write.xlsx(char,'基线表.xlsx',col.names=T,row.names=F,showNA=F)

好啦可以啦~