如何在公里图中添加中位时间和危险比信息

Question

library(KMsurv)
data(bmt)
fit.km.bmt=survfit(Surv(t2,d3)~group,data=bmt)
plot(fit.km.bmt,xlab="Days Post Transplant",
     ylab="Estimated Disease-free Survival",
     col=c(1,2,4))
legend(locator(1),c("ALL","AML-low","AML-high"),
lty=1,col=c(1,2,4),bty="n")

如何在公里图中添加以下时间的中位时间和危险比信息，谢谢。