Ana vê se é isso que você esta querendo. 1ª Opção: Gráficos na vertical par(mfrow=c(2,1))grupoH<-subset(dados,grupo=="H")modH<-lm(grupoH$pthi~grupoH$dose)plot(grupoH$pthi,grupoH$dose) #Para gerar alinha de tendencia você pode usar o comando abline() ou curve() coloquei os dois mas fica a seu critério. abline(modH) # ou curve(coef(modH)[1]+coef(modH)[2]*x,add=T) grupoC<-subset(dados,grupo=="C")modC<-lm(grupoC$pthi~grupoC$dose)plot(grupoC$pthi,grupoC$dose) #Da mesma forma para gerar alinha de tendencia você pode usar o comando abline() ou curve() coloquei os dois mas fica a seu critério. abline(modC) #ou curve(coef(modC)[1]+coef(modC)[2]*x,add=T) 2ª Opção: Gráficos na horizontal par(mfrow=c(1,2)) grupoH<-subset(dados,grupo=="H")modH<-lm(grupoH$pthi~grupoH$dose)plot(grupoH$pthi,grupoH$dose) #Para gerar alinha de tendencia você pode usar o comando abline() ou curve() coloquei os dois mas fica a seu critério. abline(modH) # ou curve(coef(modH)[1]+coef(modH)[2]*x,add=T) grupoC<-subset(dados,grupo=="C")modC<-lm(grupoC$pthi~grupoC$dose)plot(grupoC$pthi,grupoC$dose) #Da mesma forma para gerar alinha de tendencia você pode usar o comando abline() ou curve() coloquei os dois mas fica a seu critério. abline(modC) #ou curve(coef(modC)[1]+coef(modC)[2]*x,add=T) Espero ter contribuído na solução do seu problema. Att. Tiago.

Date: Tue, 27 Nov 2012 17:35:25 +0000 From: alanarocha@sapo.pt To: R-br@listas.c3sl.ufpr.br Subject: [R-br] gráfico de dispersão

Olá Tiago, ja funcionou. obrigada como é agora para o grafico? Ana

_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.