r - 在 R 中将文本/标签添加到生存图（kaplan Meier）

Question

想要将患者 ID 作为标签添加到我的生存图中。我知道我没有提供源数据，抱歉。但我想，我的问题无论如何都可以和你们聪明的人一起解决；-)

library(survival)

s=Surv(data$OS,data$Death.1)~data$Tumordignity

b=survfit(s)

plot(b, 
     col = c("darkred","darkgoldenrod","darkblue","green3"), 
     bty = "n", 
     lwd = 3, 
     mark.time = TRUE, 
     main="Overall survival in patients with malignancies",
     xlab="survival time...",
     ylab = "Survival rate...",
     xlim=c(0,2600),
     cex.main=0.8) 

#so far, so good...
# try to add text to the mark.time-points

text(data$OS,
 data$Death.1,
 labels = data$ID, 
 cex= 0.7, pos=3)

问题在于，标签（ID）将被绘制在正确的 x 位置，而不是在正确的 y 位置。 看我的情节

如何解决？使用积分（x..）？