R中數據點的着色

Question

在這里，我生成了兩個隨機變量並將其排序並將其擬合為線性logistic回歸。然后將其着色為藍色和紅色，但是問題是我無法將擬合線下的數據點設置為紅色，並將其上方的值設置為藍色。 這是我的代碼，任何幫助將不勝感激。

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")

參見圖表：顏色似乎很難分配

Answer 1

這是您想要的嗎？

plot(predict(reg),residuals(reg),col=ifelse(residuals(reg)<0,"blue","red"))

我只是測試殘差是否大於0。 主要思想是創建與數據長度相同的顏色向量。