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]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
