Hi,

Thanks for the reply. For the combined plot, if I use:

    ggplot(comb2) + geom_freqpoly(aes(x = value,
                    y = ..density.., group = X2))


I get the same colour for both the sets of distributions. What I want is one
colour for the first set of distributions, and a different colour for the
second set of distributions. Does that make sense?

thanks!



On Thu, Sep 8, 2011 at 11:26 AM, Ista Zahn <izahn@psych.rochester.edu>wrote:

> Hi Brian
>
> On Thu, Sep 8, 2011 at 10:30 AM, Brian Smith <bsmith030465@gmail.com>
> wrote:
> > Hi,
> >
> > I was trying to overlay/combine two freqpoly plots. The sample code below
> > illustrates the problem. Essentially, I want to do is:
> >
> > 1. Have the same colour for all the lines in 'Plot 1' (and 'Plot 2').
>
> Then don't map the colour to X2!
>
> > Currently, all the lines in Plot 1 have different colours and all the
> lines
> > in Plot 2 have different colors. I'd like for all lines in Plot 1 to be
> > 'red' and all the lines in Plot 2 to be 'black'.
>
> You will need a variable indicating which values come from mat and
> which come from tab. Then map color to that variable.
>
> > 2. Combine both the plots ('Plot 1' and 'Plot 2' as one combined plot -
> > which I attempt to do in 'Combined Plot'). However, I'm doing something
> > wrong because with the code for 'Combined Plot' I just get two lines.
>
> use aes(group = X2)
>
> Best,
> Ista
>
> >
> > ############ sample code ############
> > library(ggplot2)
> >
> > ###### Plot 1 - normal distributions with mean = 0 ######
> >    mat <- matrix(rnorm(10000,mean=0),1000,10)
> >    colnames(mat) <- paste('a',1:ncol(mat),sep='')
> >    rownames(mat) <- 1:nrow(mat)
> >    mat2 <- melt(mat)
> >
> >    ggplot(mat2) + geom_freqpoly(aes(x = value,
> >                    y = ..density.., colour = X2))
> >
> > ###### Plot 2- normal distributions with mean = 1
> >    tab <- matrix(rnorm(10000,mean=1),1000,10)
> >    colnames(tab) <- paste('b',1:ncol(tab),sep='')
> >    rownames(tab) <- 1:nrow(tab)
> >    tab2 <- melt(tab)
> >
> >    ggplot(tab2) + geom_freqpoly(aes(x = value,
> >                    y = ..density.., colour = X2))
> >
> >
> > ###### Combined plot
> >    comb <- cbind(mat,tab)
> >    comb2 <- melt(comb)
> >    cols <-
> > c(rep('red',ncol(mat)*nrow(mat)),rep('black',ncol(tab)*nrow(tab)))
> >
> >    ggplot(comb2) + geom_freqpoly(aes(x = value,
> >                    y = ..density.., colour = cols))
> >
> >
> > ################### End code ###############
> >
> > Any help would be appreciated!
> >
> > 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.
> >
>
>
>
> --
> Ista Zahn
> Graduate student
> University of Rochester
> Department of Clinical and Social Psychology
> http://yourpsyche.org
>

	[[alternative HTML version deleted]]

