On Thu, Jun 7, 2012 at 9:30 AM, Tim Smith <tim_smith_...@yahoo.com> wrote:
> 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")
Here's one way:
ggplot(mdat, aes(position, value)) + geom_point(aes(colour = Treatment)) +
geom_rug(subset = .(position < 14),aes(y=NULL, color="<14") +
geom_rug(subset = .(position > 14),aes(y=NULL, color=">14") +
scale_colour_manual(values = c("<14" = "orange", ">14" = "black")
Hadley
--
Assistant Professor
Department of Statistics / Rice University
http://had.co.nz/
______________________________________________
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.
