Hi,

I was trying to make another legend for the rug plot. Sample code:


library(ggplo2)
ids <- paste('id_',1:3,sep='')
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' line =
'London', and 'black' line = 'NYC')?

thanks!!

	[[alternative HTML version deleted]]

