Анализ выживаемости в 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
Как сделать, чтобы первая группа имела зеленый цвет, а вторая красный.

[DrgLena]

Две кривые К-М, которые вам удалось раскрасить, различаются не только цветом, но и функцией выживания, уровень значимости различий и выведен на рисунке. Критериев для сравнения двух кривых очень много, какой вы использовали или программа вам навязала, я не знаю, но к регрессии Кокса это не имеет отношения. Рисунок вставлен небрежно, нет всех интервалов и числа больных подверженных риску в этих интервалах. По регрессии, в прикрепленном файле, в качестве предиктора одна или две переменных (рор?) и модель строили для двух групп?