R|基线表分析

三、基线表分析

安装包

install.packages("tableone")

加载包 tableone是用来做基线检验的安装包

library(tableone)

将分类变量转换为因子变量

varsToFactor <- c("status", "trt", "ascites", "hepato", "spiders", "edema", "stage")

data[varsToFactor] <- lapply(data[varsToFactor], factor)

vars <- c("time", "status", "age", "sex", "ascites", "hepato", "spiders", "edema", "bili", "chol", "albumin", "copper", "alk.phos", "ast", "trig", "platelet", "protime", "stage")

根据治疗组（trt）创建Table 1

tableOne <- CreateTableOne(vars = vars, strata = c("trt"), data = data)

只需输入对象名称，将调用print.TableOne方法

tableOne

setwd("E:\\神州医疗工作中心\\2024年工作")

read.csv(tableOne ,"result.csv") #保存在自己的存储路径中

另外一种保存方式

如果您的工作流程包括在撰写稿件时复制到Excel和Word中，您可能会受益于quote参数。这将引用所有内容，以免Excel搞乱了单元格。

方法1

tab1Mat <- print(tableOne, nonnormal = c("bili", "chol", "copper", "alk.phos", "trig"),

exact = c("status", "stage"), quote = TRUE)

write.csv(tab1Mat, file = "Result1_Table1.csv")

方法2

print(tableOne, formatOptions = list(big.mark = ","))

tab1Mat2 <- print(tableOne, showAllLevels = TRUE, quote = FALSE, noSpaces = TRUE, printToggle = FALSE)

write.csv(tab1Mat2, file = "Result2_Table1.csv")

print(tableOne, nonnormal = c("bili", "chol", "copper", "alk.phos", "trig"),

exact = c("status", "stage"), quote = TRUE, noSpaces = TRUE)