r - ラティスの同じグラフに観測変数と予測変数をプロットする

Question

の同じプロットに観測変数と予測変数をプロットしようとしていますlattice。私のデータは繰り返されるデータセットであり、うまくいかないことをいくつか試しました。どんな援助でも大歓迎です。コードを以下に示します。

library(nlme)
library(lattice)
# add random conc predictions to data
Theoph$predConc <- rnorm(132, 5)

# My attempt at plotting both predConc and conc against time on the same plot
lattice::xyplot(predConc + conc ~ Time | Subject, groups=Subject, data=Theoph, type="l", layout = c(4,4))

ご覧のとおり、私がやりたいことをしていないようです。理想的には、「conc」と「predConc」を異なる色にして、ID ごとに各パネルに一緒に表示して、2 つを簡単に比較できるようにしたいと考えています。