R help - Feb 2012 - Several densityplots in single figure

Hi,

I have created two separate overlapping density plots- see example code
below.
What I wish now to do is combine them into one figure where they sit side
by side.
Any help would be great!

many thanks in advance, josh.

#####################
thedataA <- data.frame(x1=rnorm(100,1,1),x2=rnorm(100,3,1)) #create data
thedataA.m<-melt(thedataA)

densityplot(~value, thedataA.m, groups=variable,auto.key=list(columns=2),
       panel = function(x, y, ...) {
               panel.densityplot(x, ...)
               panel.abline(v=0)
       }
)

thedataB <- data.frame(x1=rnorm(100,2,1),x2=rnorm(100,4,1)) #create data
thedataB.m<-melt(thedataA)

densityplot(~value, thedataB.m, groups=variable,auto.key=list(columns=2),
       panel = function(x, y, ...) {
               panel.densityplot(x, ...)
               panel.abline(v=0)
       }
)
######################

	[[alternative HTML version deleted]]

Hi,

I have created two separate overlapping density plots- see example code
below.
What I wish now to do is combine them into one figure where they sit side
by side.
Any help would be great!

many thanks in advance, josh.

#####################
thedataA <- data.frame(x1=rnorm(100,1,1),x2=rnorm(100,3,1)) #create data
thedataA.m<-melt(thedataA)

densityplot(~value, thedataA.m, groups=variable,auto.key=list(columns=2),
       panel = function(x, y, ...) {
               panel.densityplot(x, ...)
               panel.abline(v=0)
       }
)

thedataB <- data.frame(x1=rnorm(100,2,1),x2=rnorm(100,4,1)) #create data
thedataB.m<-melt(thedataA)

densityplot(~value, thedataB.m, groups=variable,auto.key=list(columns=2),
       panel = function(x, y, ...) {
               panel.densityplot(x, ...)
               panel.abline(v=0)
       }
)
######################

	[[alternative HTML version deleted]]

On Feb 22, 2012, at 5:28 AM, josh rosen wrote:
> Hi,
>
> I have created two separate overlapping density plots- see example  
> code
> below.
> What I wish now to do is combine them into one figure where they sit  
> side
> by side.
> Any help would be great!
>
> many thanks in advance, josh.
>
> #####################
> thedataA <- data.frame(x1=rnorm(100,1,1),x2=rnorm(100,3,1)) #create  
> data
> thedataA.m<-melt(thedataA)
>
> densityplot(~value, thedataA.m,  
> groups=variable,auto.key=list(columns=2),
>       panel = function(x, y, ...) {
>               panel.densityplot(x, ...)
>               panel.abline(v=0)
>       }
> )
>
The syntax for grouping (which gives theoverlaid but different colors  
as default output) and "separation" is fairly simple. Use the
"|"
operator for separated plots and the " .., groups= <var>, .."   
parameter for overlaying results. It's only going to work easily if  
they are all in the same dataset.

Try:

   bigset <- cbind( rbind(thedataA.m, thedataB.m),
ABgrp=rep(c("datA",
"datB"), each=200) )
  densityplot(~value|ABgrp, data=bigset, groups=variable,  
auto.key=list(columns=2),
        panel = function(x, y, ...) {
                panel.densityplot(x, ...)
                panel.abline(v=0)   } )


And please work on whatever practice is producing duplicate postings.

-- 
David.


> thedataB <- data.frame(x1=rnorm(100,2,1),x2=rnorm(100,4,1)) #create  
> data
> thedataB.m<-melt(thedataA)
I assume that is a copy-paste-fail-to-correct error.
>
> densityplot(~value, thedataB.m,  
> groups=variable,auto.key=list(columns=2),
>       panel = function(x, y, ...) {
>               panel.densityplot(x, ...)
>               panel.abline(v=0)
>       }
> )
> ######################
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at 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.
David Winsemius, MD
West Hartford, CT