Caros amigos, tenho a rotina abaixo:

require(PASWR)
data(vit2005)
attach(vit2005)
names(vit2005)
head(vit2005)
Elevator<-as.factor(elevator)
contrasts(Elevator)
modSimpl<-lm(totalprice~area)
summary(modSimpl)

plot(totalprice~area)

Este banco tem uma variável que é o Elevator (presença ou ausência do elevador), gostaria de plotar o gráfico  da regressão totalprice~area, identificando os pontos aonde tem a presença ou ausência do elevador. 

Como faço?

plot(totalprice~area)
 
Edson Lira
Estatístico
Manaus-Amazonas