新编写的survival r代码library("survival")library("ggplot2")library("ggpubr")library("survminer")mydata<-read.csv(file.choose())kmfit<-survfit(Surv(time.d.,status) ~ surgery1, data= mydata)summary(kmfit)ggsurvplot( kmfit, pval = TRUE, conf.int = TRUE, risk.table = TRUE, linetype = "strata", surv.median.line = "hv", ggtheme = theme_bw(), palette = "hue")