In case you have a temporary workaround, it would be nice to have it. It?s a show stopper for my report. Bars are not an option, because the curve looks too jaggy.
I just remember that to work around the problem, you can just manually order the data frame: cf1 <- cf1[with(cf1, order(dur, score, decreasing = T)), ] qplot(dur,p,data=cf1, fill=score, order = rev(score), geom = "area") Hadley