[R-br] Legenda em gráfico de regressão

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