Анализ выживаемости в R Опции

[kont]

Подскажите, пожалуйста, как в R мне разделить график Каплана -Мейерса по группам, чтобы каждая группа имела свой цвет.
Например
# Kaplan-Meier non-parametric analysis by group
kmsurvival1 <- survfit(Surv(kaplan17$time, kaplan17$event) ~ kaplan17$group)
plot(kmsurvival1, xlab="Time", ylab="Survival Probability")

График выглядит не информативно.
http://funkyimg.com/view/2gk7a
Как сделать, чтобы первая группа имела зеленый цвет, а вторая красный.

[kont]

Добрый день. Ещё вопрос можно задать, но он больше по R.
Как в R используя метод Каплана-Мейера сделать на кривой пометки с процентами. Т.е.
опять есть 3 столбца
perc (процент заживления раны)
time-дата
event-0 нет события, 1 есть
на выходе такой рисунок

код
fit <- survfit(Surv(time, event)~1, data = epit1)
ggsurvplot(fit)
Как сделать так, чтобы в этом простом коде (ничего мудреного как выше не нужно ибо тут одна группа) отображались проценты на кривой

Эскизы прикрепленных изображений

 

Прикрепленные файлы

 epit.zip ( 17,74 килобайт ) Кол-во скачиваний: 305