R help - Mar 2010 - Improve lattice XYPLOT graphic

Hi,

How I could improve this graphic?

http://www.divshare.com/download/10754700-f81

I would like to write groups labels in each panel and override the
labels from object.

I am try this code:

xyplot(percentagem.mortos~tempo|trat, data=bio.ens, type="a",
? ? ? auto.key=list(points=FALSE, lines=TRUE, columns=3),
? ? ? ylim=c(0,100),scales = list(x = list(at = c(48, 72, 96), labels
? ? ? = c("48", "72", "96")), cex=2.0),
? ? ? ylab=list(expression("Percentagem de mortos"),cex=2.5),
? ? ? xlab=list(expression("Horas ap?s aplica??o"), cex=2.5), between
? ? ? = list(x = c(0.25, 0.25), y = 0.25), par.settings ? ? ?
simpleTheme(col="blue", pch=20, cex=2.3, lwd=6), par.strip.text
? ? ? = list(lines = 1, cex = 1.5),
#strip = strip.custom(strip.names=c(TRUE, FALSE),
#strip.levels=c(FALSE,FALSE),
# ?var.name=expression(c(113 - 3%*%10^8,H_2O))
#factor.levels=expression(c(113 - 3%*%10^8,H_2O))
)


I already tried many options, but with out success. Google have showed
me many suggestions, like this one:

http://tolstoy.newcastle.edu.au/R/e2/help/06/09/1409.html

I had used this suggestion and the next code to pass the groups labels
to xyplot:

levs <- c(expression(133 - 3%*%10^8), expression(H_2O),
? ? ? ? ?expression(H_2O+Tween), expression(113 - 1%*%10^8),
? ? ? ? ?expression(113 - 3%*%10^8), expression(133 - 1%*%10^8))

without success.

I tried to change the labels on data file and/or bio.ens object, but no success.

Do you have any suggestion for me?

Different colors with legend?

What you suggest me?

113 and 133 are different isolates. 1%*%10^8 and 3%*%10^8 are
different treatments. H_2O and H_2O+Tween are my controls.

Any suggestion is very welcome!

Thank you very much

--
Marcelo Luiz de Laia
Universidade do Estado de Santa Catarina
UDESC - www.cav.udesc.br
Lages - SC - Brazil
Linux user number 487797



-- 
Marcelo Luiz de Laia
Universidade do Estado de Santa Catarina
UDESC - www.cav.udesc.br
Lages - SC - Brazil
Linux user number 487797

## It looks like something like this will meet your needs

## Rich



tmp <- data.frame(trat=letters[1:3], y=rnorm(3), x=1:3)

xyplot(y ~ x | trat, data=tmp)

strip.levelnames <- c(expression(H[2]*O), expression(x^2+y^2),
expression(fraction(x^3, 1+x^3)))

xyplot(y ~ x | trat, data=tmp,
       strip=strip.custom(factor.levels=strip.levelnames))

xyplot(y ~ x | trat, data=tmp,
       strip=strip.custom(factor.levels=strip.levelnames),
       par.strip.text=list(lines=1.5), layout=c(3,1))

	[[alternative HTML version deleted]]