здесь я сгенерировал две случайные переменные, отсортировал их и поместил их в линейную логистическую регрессию. затем покрасил их в синий и красный, но проблема в том, что я не могу установить точки данных под подобранной линией как красные, а значения выше - как синие. Вот мой код, любая помощь будет оценена по достоинству.
A<-rnorm(100)
B<-runif(100)
r<-sort(A)
s<-sort(B)
reg<- lm(r ~ s)
plot(reg,which=1)
plot(predict(reg),residuals(reg))
plot(predict(reg),residuals(reg),col=c("blue","red"))
abline(h=0,lty=2,col="grey")
lines(lowess(predict(reg),residuals(reg)),col="black",lwd=2)
lines(lowess(s[r==0],residuals(reg)[r==0]),col="red")
lines(lowess(s[r==1],residuals(reg)[r==1]),col="blue")
См. график здесь: кажется, что цветовую окраску сложно назначить
