[R] ggplot2: legend for geom_rug() ..?

[John Kane]

   Well, a brute force and stupidity approach with geom_text will work but it's
   not aesthetically very nice.  Note I did not play around with text size.
   Try :
   ggplot(mdat, aes(position, value)) + geom_point(aes(colour = Treatment)) +
           geom_rug(subset = .(position < 14),aes(y=NULL),color="orange") +
           geom_rug(subset = .(position > 14),aes(y=NULL),color="black") +
           geom_text(data=NULL, x =11 , y= 0.75, colour= "orange", label =
   "London") +
            geom_text(data=NULL, x =16 , y= 0.75, colour= "blue", label =
   "NYC")
   I  thought that one should be able to generate a second legend with an
   aes(colour=ids) but it does not work.
   Someone much more knowledgeable than me hopefully will have a better idea.

   John Kane
   Kingston ON Canada

   -----Original Message-----
   From: tim_smith_666 at yahoo.com
   Sent: Thu, 7 Jun 2012 07:30:08 -0700 (PDT)
   To: jrkrideau at inbox.com, bsmith030465 at gmail.com, r-help at r-project.org
   Subject: Re: [R] ggplot2: legend for geom_rug() ..?

   Hi,
   Here is the corrected code:
   library(ggplot2)
   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)
   colnames(mdat) <- c('ID','Treatment','value','position')
   ggplot(mdat, aes(position, value)) + geom_point(aes(colour = Treatment)) +
           geom_rug(subset = .(position < 14),aes(y=NULL),color="orange") +
           geom_rug(subset = .(position > 14),aes(y=NULL),color="black")
   Alternatively, how do I add a second legend in ggplot2?
   thanks!
     _________________________________________________________________

   From: John Kane <jrkrideau at inbox.com>
   To: Brian Smith <bsmith030465 at gmail.com>; r-help at r-project.org
   Sent: Wednesday, June 6, 2012 3:06 PM
   Subject: Re: [R] ggplot2: legend for geom_rug() ..?
   What is X2?
   code not running at the moment
   John Kane
   Kingston ON Canada
   > -----Original Message-----
   > From: [1]bsmith030465 at gmail.com
   > Sent: Wed, 6 Jun 2012 11:52:25 -0400
   > To: [2]r-help at r-project.org
   > Subject: [R] ggplot2: legend for geom_rug() ..?
   >
   > 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]]
   >
   > ______________________________________________
   > [3]R-help at r-project.org mailing list
   > [4]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.
   ____________________________________________________________
   GET   FREE   SMILEYS   FOR   YOUR   IM   &   EMAIL  -  Learn  more  at
   http://www.inbox.com/smileys
   Works with AIM®, MSN® Messenger, Yahoo!® Messenger, ICQ®, Google Talk™ and
   most webmails
   ______________________________________________
   [5]R-help at r-project.org mailing list
   [6]https://stat.ethz.ch/mailman/listinfo/r-help
   PLEASE do read the posting guide
   [7]http://www.R-project.org/posting-guide.html
   and provide commented, minimal, self-contained, reproducible code.
     _________________________________________________________________

   [8]Email Notifier Preview 
   Receive Notifications of Incoming Messages
   Easily monitor multiple email accounts & access them with a click. Visit
   [9]www.inbox.com/notifier and check it out!

References

   1. mailto:bsmith030465 at gmail.com
   2. mailto:r-help at r-project.org
   3. mailto:R-help at r-project.org
   4. https://stat.ethz.ch/mailman/listinfo/r-help
   5. mailto:R-help at r-project.org
   6. https://stat.ethz.ch/mailman/listinfo/r-help
   7. http://www.R-project.org/posting-guide.html
   8. http://www.inbox.com/notifier
   9. http://www.inbox.com/notifier