search for: geom_rug

...ep='') before <- sample(9) after <- sample(1:10,9) dat <- as.matrix(cbind(before,after)) rownames(dat) <- rep(ids,3) position <- c(rep(10,3),rep(13,3),rep(19,3)) mdat <- cbind(melt(dat),position) ggplot(mdat, aes(position, value)) + geom_point(aes(colour = X2)) + geom_rug(subset = .(position < 14),aes(y=NULL),color="orange") + geom_rug(subset = .(position > 14),aes(y=NULL),color="black") This gives the plot correctly, but how can I add another legend that would give some more information on the rugplot (e.g. that 'orange'...

...an the other lines, controlled by the parameter fatten (thanks to Heike Hofmann for the suggestion) * geom_density: fix scale adjustment bug in geom_density * geom_line, geom_text: all size measurements (now lines and text as well) are measured in mm, lines/paths default to paths 0.5mm wide * geom_rug: new to add marginal rug plots * geom_smooth: added example showing how to use geom_smooth with your own models * geom_smooth: fixed bug where if se=FALSE x axis always includes 0 * geom_vline, geom_hline: yet another rewrite which should make them more powerful and less error prone. * ggsa...

...an the other lines, controlled by the parameter fatten (thanks to Heike Hofmann for the suggestion) * geom_density: fix scale adjustment bug in geom_density * geom_line, geom_text: all size measurements (now lines and text as well) are measured in mm, lines/paths default to paths 0.5mm wide * geom_rug: new to add marginal rug plots * geom_smooth: added example showing how to use geom_smooth with your own models * geom_smooth: fixed bug where if se=FALSE x axis always includes 0 * geom_vline, geom_hline: yet another rewrite which should make them more powerful and less error prone. * ggsa...