「濃度推移の重ね描き」の編集履歴（バックアップ）一覧はこちら

「濃度推移の重ね描き」(2007/02/03 (土) 10:46:20) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

  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 <-
  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)")