濃度推移の重ね描き - Clinical PK/PD

個体での血漿中濃度推移をひとつのグラフ内で重ね描き

 plot.super <-
 function(
   tab, ID="ID", Y="DV",
   xlab="Time (hr)", ylab="Concentration (ng/mL)",
   ...
 ) {
   tab.plot <- data.frame(ID=tab[,ID], TIME=tab$TIME, Y=tab[,Y])
   res <- xyplot(
     Y ~ TIME, tab.plot, groups=ID, panel=panel.superpose,
     type="l",
     xlab=xlab, ylab=ylab,
     ...
   )
   res
 }

plot.super(tab[tab$MDV==0,], ID="SID",
  ylab="Plasma concentration (ng/mL)")