Построение наблюдаемых и предсказанных переменных на том же графике в решетке

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" были разных цветов, но чтобы они отображались вместе на каждой панели для каждого идентификатора, чтобы можно было легко сравнивать их.

Answer 1

Как было предложено в комментариях, это исправлено простым падением groups = Subject,

lattice::xyplot(predConc + conc ~ Time | Subject, data = Theoph, type = "l",
                auto.key = TRUE)