がどのように動的にプロット

Question

におけるRでグループを示すために、これは私のデータ

ある

x = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
    17, 18, 19, 20, 21, 22) 
y = c(1, 6, 2, 5, 4, 7, 9, 6, 8, 4, 5, 6, 5, 5, 6, 7, 5, 8, 9, 
    5, 4, 7) 

plot(x, y) 
fit <- lm(y ~ x) 
fit 
abline(fit, col = "black", lwd = "1") 

私は2つのグループにデータを分割するためにプロットしたい

、回帰直線とし、上記の観察回帰直線の下でそれら。これどうやってするの？

Answer 1

あなたは、各xに当てはめ値を取得するためにpredictを使用して、彼らはライン上または下にしているかどうかをテストするために観測されたとフィット間の論理比較することができます。次に、この論理比較に基づいてプロットする色を設定します。

prediction <- predict(fit) 
colors<-ifelse(y>prediction,1,2) 
plot(x,y,col=colors) 
abline(fit, col= "black",lwd="1")