################################################################################################# # Graph ######################################################################################### ################################################################################################# ac <- list(pad1=0.5, pad2=0.5, tck=0.5) mycol <- gray.colors(n=5) ps <- list(box.rectangle=list(col=1, fill=c("gray70")), box.umbrella=list(col=1, lty=1), dot.symbol=list(col=1), dot.line=list(col=1, lty=3), plot.symbol=list(col=1, cex=0.7), plot.line=list(col=1), plot.polygon=list(col="gray80"), superpose.line=list(col=mycol), superpose.symbol=list(col=mycol), superpose.polygon=list(col=mycol), strip.background=list(col=c("gray90","gray50")), layout.widths=list( left.padding=0.25, right.padding=-1, ylab.axis.padding=0), layout.heights=list( bottom.padding=0.25, top.padding=0, axis.xlab.padding=0, xlab.top=0), axis.components=list(bottom=ac, top=ac, left=ac, right=ac) ) panel.segplotBy <- function(x, y, z, centers, subscripts, groups, f, ...){ d <- 2*((as.numeric(groups)-1)/(nlevels(groups)-1))-1 z <- as.numeric(z)+f*d panel.segplot(x, y, z, centers=centers, subscripts=subscripts, ...) }