Re: [R] auto.key in xyplot in conjunction with panel.text

2008-07-03 Thread David Afshartous 

Thanks!  That works perfect.


On 7/2/08 6:45 PM, Deepayan Sarkar [EMAIL PROTECTED] wrote:

 On 7/2/08, David Afshartous [EMAIL PROTECTED] wrote:
 
 
  All,
 
  I can't seem to get auto.key to work properly in an xyplot that is employing
  panel.text.  Specifically, I often change the default grouping colors then
  use auto.key accordingly, but for some reason the same functionality isn't
  working for this different type of plot.  Any help much appreciated.
 
 You can't really expect it to work unless you go through
 panel.superpose. Try this:
 
 xyplot(Y ~ X, data = dat, lab = dat$ID,
groups = Drug,
auto.key = list(space = top, text = c(Placebo, Drug),
points = FALSE, lines = TRUE),
par.settings = list(superpose.line = list(col = c(red,black))),
panel = panel.superpose,
panel.groups = function(x, y, lab, subscripts, col.line, ...){
panel.text(x, y, labels = lab[subscripts], col = col.line)
})
 
 -Deepayan
 
  Cheers,
  David
 
 
 
 
  library(lattice)
  dat = data.frame( Y = c(rnorm(18,1), rnorm(18,3)), X = rep(c(1:18), 2),
  ID = rep(c(1:18), 2), Drug = factor(rep(c(P, D), each = 18)) )
  ## this plot correctly provides the key for the grouping color
  xyplot(Y ~ X, data=dat, type=p,
panel=panel.superpose, groups=Drug,
col = rep(c(red, black), 18),
auto.key = list(space = top,  text = c( Placebo, Drug),
points = FALSE, lines = TRUE),
  par.settings = list(superpose.line = list(col = c(red,black) ) ) )
 
 
 
  ## this plot correctly uses ID's and colors instead of plotting symbols
  xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
groups=Drug, col = rep(c(red, black), 18),
panel= function(x,y, lab, type, auto.key, ...){
 panel.xyplot(x,y, type = type, ...)
 panel.text(x,y, lab=lab,  ...)
}
  )
 
  ## when trying to get the correct key as in the first plot
  ## for the second plot things don't work.
  ## I've tried several alterations to the syntax but no luck so far
  xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
groups=Drug, col = rep(c(red, black), 18),
auto.key = list(space = top,  text = c( Placebo, Drug),
points = FALSE, lines = TRUE), par.settings = list(superpose.line =
list(col = c(red,black) ) )
panel= function(x,y, lab, type, ...){
 panel.xyplot(x,y, type = type, ...)
 panel.text(x,y, lab=lab,  ...)
}
  )
 
  ## another unsuccessful attempt:
  xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
groups=Drug, col = rep(c(red, black), 18),
auto.key = list(space = top,  text = c( Placebo, Drug),
points = FALSE, lines = TRUE), par.settings = list(superpose.line =
list(col = c(red,black) ) )
panel= function(x,y, lab, type, auto.key ...){
 panel.xyplot(x,y, type = type, auto.key = auto.key ...)
 panel.text(x,y, lab=lab,  ...)
}
  )
 
  __
  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.


__
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.

[R] auto.key in xyplot in conjunction with panel.text

2008-07-02 Thread David Afshartous 


All,

I can't seem to get auto.key to work properly in an xyplot that is employing
panel.text.  Specifically, I often change the default grouping colors then
use auto.key accordingly, but for some reason the same functionality isn't
working for this different type of plot.  Any help much appreciated.

Cheers, 
David




library(lattice)
dat = data.frame( Y = c(rnorm(18,1), rnorm(18,3)), X = rep(c(1:18), 2),
ID = rep(c(1:18), 2), Drug = factor(rep(c(P, D), each = 18)) )
## this plot correctly provides the key for the grouping color
xyplot(Y ~ X, data=dat, type=p,
   panel=panel.superpose, groups=Drug,
   col = rep(c(red, black), 18),
   auto.key = list(space = top,  text = c( Placebo, Drug),
   points = FALSE, lines = TRUE),
par.settings = list(superpose.line = list(col = c(red,black) ) ) )



## this plot correctly uses ID's and colors instead of plotting symbols
xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
   groups=Drug, col = rep(c(red, black), 18),
   panel= function(x,y, lab, type, auto.key, ...){
panel.xyplot(x,y, type = type, ...)
panel.text(x,y, lab=lab,  ...)
   }
)

## when trying to get the correct key as in the first plot
## for the second plot things don't work.
## I've tried several alterations to the syntax but no luck so far
xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
   groups=Drug, col = rep(c(red, black), 18),
   auto.key = list(space = top,  text = c( Placebo, Drug),
   points = FALSE, lines = TRUE), par.settings = list(superpose.line =
   list(col = c(red,black) ) )
   panel= function(x,y, lab, type, ...){
panel.xyplot(x,y, type = type, ...)
panel.text(x,y, lab=lab,  ...)
   }
)

## another unsuccessful attempt:
xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
   groups=Drug, col = rep(c(red, black), 18),
   auto.key = list(space = top,  text = c( Placebo, Drug),
   points = FALSE, lines = TRUE), par.settings = list(superpose.line =
   list(col = c(red,black) ) )
   panel= function(x,y, lab, type, auto.key ...){
panel.xyplot(x,y, type = type, auto.key = auto.key ...)
panel.text(x,y, lab=lab,  ...)
   }
)

__
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.

Re: [R] auto.key in xyplot in conjunction with panel.text

2008-07-02 Thread Deepayan Sarkar 
On 7/2/08, David Afshartous [EMAIL PROTECTED] wrote:


  All,

  I can't seem to get auto.key to work properly in an xyplot that is employing
  panel.text.  Specifically, I often change the default grouping colors then
  use auto.key accordingly, but for some reason the same functionality isn't
  working for this different type of plot.  Any help much appreciated.

You can't really expect it to work unless you go through
panel.superpose. Try this:

xyplot(Y ~ X, data = dat, lab = dat$ID,
   groups = Drug,
   auto.key = list(space = top, text = c(Placebo, Drug),
   points = FALSE, lines = TRUE),
   par.settings = list(superpose.line = list(col = c(red,black))),
   panel = panel.superpose,
   panel.groups = function(x, y, lab, subscripts, col.line, ...){
   panel.text(x, y, labels = lab[subscripts], col = col.line)
   })

-Deepayan

  Cheers,
  David




  library(lattice)
  dat = data.frame( Y = c(rnorm(18,1), rnorm(18,3)), X = rep(c(1:18), 2),
  ID = rep(c(1:18), 2), Drug = factor(rep(c(P, D), each = 18)) )
  ## this plot correctly provides the key for the grouping color
  xyplot(Y ~ X, data=dat, type=p,
panel=panel.superpose, groups=Drug,
col = rep(c(red, black), 18),
auto.key = list(space = top,  text = c( Placebo, Drug),
points = FALSE, lines = TRUE),
  par.settings = list(superpose.line = list(col = c(red,black) ) ) )



  ## this plot correctly uses ID's and colors instead of plotting symbols
  xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
groups=Drug, col = rep(c(red, black), 18),
panel= function(x,y, lab, type, auto.key, ...){
 panel.xyplot(x,y, type = type, ...)
 panel.text(x,y, lab=lab,  ...)
}
  )

  ## when trying to get the correct key as in the first plot
  ## for the second plot things don't work.
  ## I've tried several alterations to the syntax but no luck so far
  xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
groups=Drug, col = rep(c(red, black), 18),
auto.key = list(space = top,  text = c( Placebo, Drug),
points = FALSE, lines = TRUE), par.settings = list(superpose.line =
list(col = c(red,black) ) )
panel= function(x,y, lab, type, ...){
 panel.xyplot(x,y, type = type, ...)
 panel.text(x,y, lab=lab,  ...)
}
  )

  ## another unsuccessful attempt:
  xyplot(Y ~ X, data=dat, type=n, lab = dat$ID,
groups=Drug, col = rep(c(red, black), 18),
auto.key = list(space = top,  text = c( Placebo, Drug),
points = FALSE, lines = TRUE), par.settings = list(superpose.line =
list(col = c(red,black) ) )
panel= function(x,y, lab, type, auto.key ...){
 panel.xyplot(x,y, type = type, auto.key = auto.key ...)
 panel.text(x,y, lab=lab,  ...)
}
  )

  __
  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.


__
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.