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

[Edson Lira]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131031/12adc695/attachment.html>