ggplot2 for survival after transform
survival plot for two group variables
color for one group , and line type for another

p9 <- Fplot(D$Group_IN, D)+ theme(legend.justification=c(1,0),
legend.position=c(1,0.55))
createSurvivalFrame

createSurvivalFrame  for plots