R 标记残差

我在R中建立了一个线性回归模型，包含3个连续自变量和一个连续因变量。我已经生成了诊断图。 现在，我想根据模型中未包含的二元分类自变量对诊断图上每个残差的数据点进行标记/着色，即当该变量=A时，我希望诊断图上有一个蓝点，当该变量=B时，我希望有一个红点。所以在我的诊断图上会有红点和蓝点。

---

我希望得到一些关于如何执行此操作的建议。

假设您指的是plot.lm中的标准诊断图，您可以使用以下方法：

x<-rnorm(100); y<-2*x+rnorm(100)
fit<-lm(y~x)
grp<-rep(c("A","B"),c(50,50))
color<-ifelse(grp=="A",2,4)
plot(fit,id.n=length(x),labels.id=grp,col=color)

---

x假设您指的是plot.lm中的标准诊断图，您可以使用以下内容：

x<-rnorm(100); y<-2*x+rnorm(100)
fit<-lm(y~x)
grp<-rep(c("A","B"),c(50,50))
color<-ifelse(grp=="A",2,4)
plot(fit,id.n=length(x),labels.id=grp,col=color)

x假设您指的是plot.lm中的标准诊断图，您可以使用以下内容：

x<-rnorm(100); y<-2*x+rnorm(100)
fit<-lm(y~x)
grp<-rep(c("A","B"),c(50,50))
color<-ifelse(grp=="A",2,4)
plot(fit,id.n=length(x),labels.id=grp,col=color)

x假设您指的是plot.lm中的标准诊断图，您可以使用以下内容：

x<-rnorm(100); y<-2*x+rnorm(100)
fit<-lm(y~x)
grp<-rep(c("A","B"),c(50,50))
color<-ifelse(grp=="A",2,4)
plot(fit,id.n=length(x),labels.id=grp,col=color)

x