studio - superponer graficas en r

línea de loess no trazando correctamente

Question

Tengo problemas para ajustar los límites de confianza de loess smooth a un diagrama de dispersión de residuos.

Mi modelo es altura ~ peso + circunferencia del pecho. Para verificar la linealidad de la circunferencia del pecho, he ajustado un modelo sin circunferencia del pecho (es decir, altura ~ peso) y he trazado los residuos de este modelo contra la circunferencia del pecho. Hasta aquí todo bien. Luego traté de usar loess() y predict() para trazar una línea de loess, más los límites de confianza. El resultado se ve así (en la imagen solo he trazado la línea central, pero las líneas de IC tienen el mismo aspecto):

Problema de loess en el diagrama de dispersión

Los puntos son correctos (cuando trazo el loess en forma de puntos se ve bien), pero por alguna razón la línea no se dibuja como espero. Mi código está abajo:

# bf.red = data set; mod.nch = model; chestc = chest circumference;
# loess = loess model; lo.pred = predict loess
plot(bf.red$chestc #Chest circumference
,residuals(mod.nch)) #Residuals from height ~ weight model
loess <- loess(mod.nch$residuals ~ bf.red$chestc)
lo.pred <- predict(loess, se=T)
lines(bf.red$chestc,lo.pred$fit,pch=2) #Main line
lines(bf.red$chestc,lo.pred$fit+2*lo.pred$s, lty=2) #rough & ready CI
lines(bf.red$chestc,lo.pred$fit-2*lo.pred$s, lty=2)

Espero que puedas ayudar. Muchas gracias,

Estera

Answer 1

lines conectan los puntos en el orden en que aparecen, lo que a veces es indeseable. Puede ordenarlos de la siguiente manera:

i <- order(bf.red$chestc)
lines(bf.red$chestc[i], lo.pred$fit[i])
...