如何在R中的ggsurvplot上添加工具提示以进行生存力分析

Question

请您帮我添加工具提示，以在R中的ggsurvplot上显示数据值以进行生存分析。

这是我的代码：

fit <- survfit(Surv(PRIMARYTOOUTCOMEYEARS,fstatus)~1, data = p1) 
ggsurv <- ggsurvplot(fit, ylab="Patient Analysis", xlab="Time (Years)", break.time.by = 1, 
            xlim = c(0,max(fit$time)), surv.scale = "percent", legend.title = "Kaplan-Meier", 
            legend.labs = "", risk.table = TRUE, fontsize = 3, font.tickslab = c(10, "plain"), 
            risk.table.y.text = FALSE, fun = "event" )

非常感谢您。