Графики для иллюстрации результатов модели линейного смешанного эффекта

13

Я анализировал некоторые данные с использованием линейного моделирования смешанных эффектов в R. Я планирую сделать плакат с результатами, и мне было просто интересно, может ли кто-нибудь, имеющий опыт работы с моделями смешанных эффектов, предложить, какие графики использовать для иллюстрации результатов модель. Я думал об остаточных графиках, графике подгоночных значений против исходных значений и т. Д.

Я знаю, что это будет очень сильно зависеть от моих данных, но я просто пытался понять, как лучше всего проиллюстрировать результаты линейных моделей со смешанным эффектом. Я использую пакет nlme в R.

благодаря

John_dydx
источник
3
Книга Пиньейру и Бейтса содержит несколько примеров. Вы можете взглянуть на §4.3, «Изучение адаптированной модели».
Серхио
3
Эта ветка, вероятно, может быть полезна также: Каким будет иллюстративное изображение для линейных смешанных моделей?
usεr11852

Ответы:

22

Это зависит от вашей модели, но, по моему опыту, даже коллегам, которые плохо разбираются в моделях смешанных эффектов, очень нравится, когда вы строите прогнозы с разными уровнями группировки:

library(nlme)
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1|Subject)

newdat <- expand.grid(Sex=unique(Orthodont$Sex),
                  age=c(min(Orthodont$age),
                            max(Orthodont$age)))

library(ggplot2)
p <- ggplot(Orthodont, aes(x=age, y=distance, colour=Sex)) +
  geom_point(size=3) +
  geom_line(aes(y=predict(fm2), group=Subject, size="Subjects")) +
  geom_line(data=newdat, aes(y=predict(fm2, level=0, newdata=newdat), size="Population")) +
  scale_size_manual(name="Predictions", values=c("Subjects"=0.5, "Population"=3)) +
  theme_bw(base_size=22) 
print(p)

введите описание изображения здесь

Roland
источник
@ Роланд, спасибо за ответ. Моя модель представляет собой линейную модель смешанного эффекта, содержащую независимые и зависимые переменные с некоторыми ковариатами.
John_dydx
@ Роланд, могу ли я спросить, так ли fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1|Subject)это fm3 <- lme(distance ~ age*Sex, data = Orthodont, random = ~ 1|Subject) ? Я пытаюсь использовать секс как ковариату для модели.
John_dydx
Номер age * Sexтакой же, как age + Sex + age:Sex, т. Е. Включает в себя взаимодействие.
Роланд
1
Ну конечно; естественно. Вам нужно удалить colour=Sex.
Роланд
1
Да, но это основная функциональность ggplot2. Изучите документацию и учебные пособия. Возможно, вы захотите использовать scale_colour_manual.
Роланд