1.用survdiff()函数建立生存分析模型 surv_diff <- survdiff(Surv(data1$生存时间, data1$结局) ~ data1$group, data = data1) 2.计算P值 p.value <- 1 - pchisq(surv_diff$chisq, length(surv_diff$n) -1)