Displaying 1 result from an estimated 1 matches for "sbjx".
Did you mean:
sbj
2013 Feb 15
3
lattice 3x3 plot: force common y-limits accross rows and align x-axes
...rame
df.irisk <- subset(df,risk==irisk)
# order subjects by total count; store levels of subjectx variables
# for later re-use in panel labels
df.irisk$subjectx <- df.irisk$subject[,drop=TRUE]
df.irisk$subjectx <- reorder(df.irisk$subjectx,df.irisk$count,sum)
assign(paste('sbjx.',irisk,sep=''),levels(df.irisk$subjectx))
# create dotplot and store it in oltc.{irisk} variable
oltc.irisk <- dotplot(subjectx~count|treatment,data=df.irisk,
layout=c(3,1),type=c('p','h'),
xlim=c(-1,16),origin=0,...