답변:
대화 sleepstudy
를 위해 lme4 패키지 의 데이터 세트를 기반으로 한 다음 그림을 사용했습니다 . 아이디어는 주제별 데이터의 독립 회귀 적합치 (회색) 와 랜덤 효과 모델의 예측 간의 차이를 설명하는 것이 었습니다 . 특히 (1) 랜덤 효과 모델의 예측 된 값은 수축 추정기이며 (2) 개별 궤적은 공유합니다. 랜덤 절편 전용 모델 (주황색)의 공통 경사. 대상 절편의 분포는 y 축에서 커널 밀도 추정값으로 표시됩니다 ( R 코드 ).
(밀도 곡선은 관측치가 상대적으로 적기 때문에 관측치 범위를 넘어 확장됩니다.)
좀 더 '종래적인'그래픽은 Doug Bates ( 예 : lme4에 대한 R-forge 사이트에서 사용 가능 ) (예 : 4Longitudinal.R ) 의 다음 그래픽 일 수 있습니다. 여기서 각 패널에 개별 데이터를 추가 할 수 있습니다.
따라서 "아주 우아하지 않은"것이지만 R과 함께 임의의 절편과 기울기를 보여주는 것입니다.
N =100; set.seed(123);
x1 = runif(N)*3; readings1 <- 2*x1 + 1.0 + rnorm(N)*.99;
x2 = runif(N)*3; readings2 <- 3*x2 + 1.5 + rnorm(N)*.99;
x3 = runif(N)*3; readings3 <- 4*x3 + 2.0 + rnorm(N)*.99;
x4 = runif(N)*3; readings4 <- 5*x4 + 2.5 + rnorm(N)*.99;
x5 = runif(N)*3; readings5 <- 6*x5 + 3.0 + rnorm(N)*.99;
X = c(x1,x2,x3,x4,x5);
Y = c(readings1,readings2,readings3,readings4,readings5)
Grouping = c(rep(1,N),rep(2,N),rep(3,N),rep(4,N),rep(5,N))
library(lme4);
LMERFIT <- lmer(Y ~ 1+ X+ (X|Grouping))
RIaS <-unlist( ranef(LMERFIT)) #Random Intercepts and Slopes
FixedEff <- fixef(LMERFIT) # Fixed Intercept and Slope
png('SampleLMERFIT_withRandomSlopes_and_Intercepts.png', width=800,height=450,units="px" )
par(mfrow=c(1,2))
plot(X,Y,xlab="x",ylab="readings")
plot(x1,readings1, xlim=c(0,3), ylim=c(min(Y)-1,max(Y)+1), pch=16,xlab="x",ylab="readings" )
points(x2,readings2, col='red', pch=16)
points(x3,readings3, col='green', pch=16)
points(x4,readings4, col='blue', pch=16)
points(x5,readings5, col='orange', pch=16)
abline(v=(seq(-1,4 ,1)), col="lightgray", lty="dotted");
abline(h=(seq( -1,25 ,1)), col="lightgray", lty="dotted")
lines(x1,FixedEff[1]+ (RIaS[6] + FixedEff[2])* x1+ RIaS[1], col='black')
lines(x2,FixedEff[1]+ (RIaS[7] + FixedEff[2])* x2+ RIaS[2], col='red')
lines(x3,FixedEff[1]+ (RIaS[8] + FixedEff[2])* x3+ RIaS[3], col='green')
lines(x4,FixedEff[1]+ (RIaS[9] + FixedEff[2])* x4+ RIaS[4], col='blue')
lines(x5,FixedEff[1]+ (RIaS[10]+ FixedEff[2])* x5+ RIaS[5], col='orange')
legend(0, 24, c("Group1","Group2","Group3","Group4","Group5" ), lty=c(1,1), col=c('black','red', 'green','blue','orange'))
dev.off()
nlmefit 의 Matlab 문서에서 가져온이 그래프 는 임의의 가로 채기 및 기울기의 개념을 아주 분명하게 보여주는 것으로 저를 놀라게 합니다. 아마도 OLS 플롯의 잔차에서이 분산 그룹을 보여주는 것이 아마도 표준 일 것이지만 나는 "해결책"을주지 않을 것입니다.