[R-es] Gráfico tiempos de supervivencia

[Griera-yandex]

Buenos días a todos:

Alguien me puede ayudar a hacer (si se puede) con unos datos similares a:

set.seed(20)
DATOS <- data.frame (
      ID      = c (1:10)
    , TIEMPO  = sample(1:40, 10, replace=F)
    , DEF     = sample(0:1, 10, replace=T)
                    );DATOS

un gráfico que muestre los tiempos de supervivencia similar a:
https://miro.medium.com/max/700/1*yHhG4TVcAAi29Ln88t0_5Q.png

Lo he intentado con la función followup.plot del paquete
"epiDisplay" (https://cran.r-project.org/web/packages/epiDisplay/index.html),
pero no encuentro la forma.

Muchas gracias y saludos.