Example Code:
EmigProb<-c(rep(seq(0.1,0.8,length=5),4),rep(seq(0.1,0.8,length=5),4)) RemainEmigProb<-c(rep(0.2,5),rep(0.4,5),rep(0.6,5),rep(0.8,5),rep(
Add this to your plotting command:
guides(colour = guide_legend(override.aes = list(shape = NA)))
Details on customizing legends along with lots more wonderful ggplot2 0.9 wisdom can be found here: http://cloud.github.com/downloads/hadley/ggplot2/guide-col.pdf