新编写的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"
)