parcela de supervivencia de nadador

¿Hay una manera fácil de generar una parcela de nadador en R? Los mismos datos que en una curva KM pero con cada supervivencia individual representada como una línea. Ejemplo:

Busqué stackoverflow, la lista de correo de R-help, y consulté al Dr. Google sin una respuesta obvia, aunque mi técnica de búsqueda puede ser subóptima. ¡Gracias!

**** AGREGADO **** Disculpas por no hacer una pregunta apropiadamente - ¡esta es mi primera vez! Jugando, he podido hacer lo siguiente:

          OS DeathYN TreatmentGroup
4   444 days       1              0
5   553 days       1              0
8   812 days       0              0
1   844 days       0              0
10 1071 days       0              0
9  1147 days       0              0
6  1349 days       0              0
3  1375 days       0              0
2  1384 days       0              1
7  1687 days       0              0

orderedData$GroupColor[orderedData$TreatmentGroup==0] <- "yellow"
orderedData$GroupColor[orderedData$TreatmentGroup==1] <- "red"
orderedData$YCoord <- barplot(as.numeric(orderedData$OS), horiz=TRUE,  col=orderedData$GroupColor, xlim=c(0,max(orderedData$OS) + 50), xlab="Overall Survival")
points(x=20+as.numeric(orderedData$OS), y=orderedData$YCoord,pch=62, col="green")
legend(1000,2, c("Control", "Treatment", "still living"), col=c("yellow","red", "green"), lty=1, lwd=c(10,10,0),pch=62)

Esto me acerca lo suficiente por ahora, pero la estética no es perfecta. ¡Si hay un paquete o una solución mejor, alguien puede sugerir que me encantaría verlo!

Respuestas a la pregunta(2)

Su respuesta a la pregunta