ggplot2 for competing Risk