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 <[email protected]>
To: Brian Smith <[email protected]>; [email protected]
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: [email protected]
> Sent: Wed, 6 Jun 2012 11:52:25 -0400
> To: [email protected]
> 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]]
>
> ______________________________________________
> [email protected] 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.
____________________________________________________________
GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at
http://www.inbox.com/smileys
[[elided Yahoo spam]]
®, Google Talk⢠and most webmails
______________________________________________
[email protected] 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.
[[alternative HTML version deleted]]
______________________________________________
[email protected] 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.
