Create the ggplot.survival function.

Simply replace all plot commands with equivalent ggplot commands.