First I have read all the previous post on error bars & segments as well as the Lattice book by Sarkar.
I am using xyplot, there are 2 panels, each panel displays the measurements from 5 matrices over time. The matrices are identified by different colors. My error bars show up in the 1st panel and not the second. Any suggestions would be greatly appreciated the code follows - thanks. #Figure 2 data2$Type<-ordered(data2$Type, c("SDM","AcSDM")) sub2<-table(data2$Matrix, data2$Type) fill.palette2<-c(rep(palette2, sub2[,1]), rep(palette2, sub2[,2])) subscripts2<-1:dim(data2)[1] #Figure 2 xyplot(Response~Time|Type, data=data2, upper=log10(data2$Response+data2$SD), lower=log10(data2$Response-data2$SD), groups=fill.palette2, cex=1.35, layout=c(2, 1), type=c("p","g"), col="black", aspect=1, col.line="light grey", lty=8, xlim=c(30, 120), scales=list(x=list(at=seq(from=30, to=120, by=20)), y=list(log=10)), ylab="Concentration in Matrices (ppb)", xlab="Time after last dose (hour)", main="Figure 2. Depletion for Average Concentration by Matrix over Time (Length of the black vertical line is two standard deviations)", panel=function(x, y, groups, subscripts, upper, lower, ...){ panel.xyplot(x, y, pch=21, fill=groups[subscripts2], ...) panel.abline(v=100, col="black", lty=8) panel.text(110, log10(55000), "Post-mortem", cex=0.7) panel.text(110, log10(40000), "Measurements", cex=0.7) switch(panel.number() panel.segments(x[subscripts], lower[subscripts], x[subscripts], upper[subscripts], lty=1, col="black")}, key=list(corner=c(0.02, 0.04), text=list(levels(data2$Matrix)), cex=0.75, columns=1,border=TRUE, points=list(pch=c(21, 21, 21, 21, 21), fill=palette2, cex=c(1.5, 1.5, 1.5, 1.5, 1.5))) ) ______________________________________________ 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.