代码是fit <- survfit(Surv(futime, fustat) ~ risk, data = rt)summary(fit)    #?鿴??????????
ggsurvplot(fit,data=rt)
pdf(file="survival.pdf",width=5.5,height=5)
ggsurvplot( fit,
            data = rt,
            size = 1.5,# change line size
            xlab="Time (year)",
            ylab="Survival rate",
            palette = c("#E7B800", "#2E9FDF"),# custom color palettes
            conf.int = FALSE, # Add confidence interval
            pval = TRUE, # Add p-value
            risk.table = FALSE, # Add risk table
            risk.table.col = "strata",# Risk table color by groups
            risk.table.height = 0.25, # Useful to change when you have multiple groups
            ggtheme = theme_bw() #Change ggplot2 theme
            )
dev.off()

结果画出来的是。

我想把上边的框框去掉，只保留xy坐标轴，就像下图那样：。

求助各位大佬！！谢谢！