Displaying 1 result from an estimated 1 matches for "pcknum".
Did you mean:
blknum
2013 Feb 15
3
lattice 3x3 plot: force common y-limits accross rows and align x-axes
...scripts,drop=TRUE])
idata <- subset(data,risk==irisk)
# in the sub-frame, order subjects by total counts
idata$subjectx <- reorder(idata$subject[,drop=TRUE],idata$count,sum)
# set y-limits
ylim <- levels(idata$subjectx)
# increment packet counter and print new panel limits
pcknum = lattice.options()$packet.counter
lattice.options(packet.counter=pcknum+1)
cat(paste(pcknum,":",paste(ylim,collapse=", ")),sep="\n")
return(list(ylim=ylim))
}
panel.dotplot.x <- function(x,y,type,subscripts,...,data=NULL) {
# get the sub-frame for the row...