Continuing from your JUNK example: xyplot(Creatinine + Estrogen + Ratio ~ Day, data=JUNK, type="l", outer=TRUE, layout=c(1,3), scales=list(y=list(relation="free")))