trellis

Only one line of code. If we want a title and some lables I guess that means two lines.

qplot(schdtim,result,data = concs, geom = c('point','path')) +
      facet_wrap(~patid, ncol=2)