<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<div>Ana vê se é isso que você esta querendo.</div><div><br></div><div>1ª Opção: Gráficos na vertical </div><div><br></div><div>par(mfrow=c(2,1))</div><div>grupoH<-subset(dados,grupo=="H")</div><div>modH<-lm(grupoH$pthi~grupoH$dose)</div><div>plot(grupoH$pthi,grupoH$dose)</div><div><br></div><div>#Para gerar alinha de tendencia você pode usar o comando <font face="Courier New">abline()</font> ou <font face="Courier New">curve()</font> coloquei os dois mas fica a seu critério. </div><div><br></div><div>abline(modH)</div><div><br></div><div># ou</div><div><br></div><div>curve(coef(modH)[1]+coef(modH)[2]*x,add=T)</div><div><br></div><div><br></div><div>grupoC<-subset(dados,grupo=="C")</div><div>modC<-lm(grupoC$pthi~grupoC$dose)</div><div>plot(grupoC$pthi,grupoC$dose)</div><div><br></div><div>#Da mesma forma para gerar alinha de tendencia você pode usar o comando <font face="Courier New">abline()</font> ou <font face="Courier New">curve()</font> coloquei os dois mas fica a seu critério.</div><div><br></div><div>abline(modC)</div><div><br></div><div>#ou </div><div><br></div><div>curve(coef(modC)[1]+coef(modC)[2]*x,add=T)</div><div><br></div><div><br></div><div>2ª Opção: Gráficos na horizontal</div><div><br></div><div><br></div><div>par(mfrow=c(1,2))</div><div><br></div><div>grupoH<-subset(dados,grupo=="H")</div><div>modH<-lm(grupoH$pthi~grupoH$dose)</div><div>plot(grupoH$pthi,grupoH$dose)</div><div><br></div><div>#Para gerar alinha de tendencia você pode usar o comando <font face="Courier New">abline()</font> ou <font face="Courier New">curve()</font> coloquei os dois mas fica a seu critério. </div><div><br></div><div>abline(modH)</div><div><br></div><div># ou</div><div><br></div><div>curve(coef(modH)[1]+coef(modH)[2]*x,add=T)</div><div><br></div><div><br></div><div>grupoC<-subset(dados,grupo=="C")</div><div>modC<-lm(grupoC$pthi~grupoC$dose)</div><div>plot(grupoC$pthi,grupoC$dose)</div><div><br></div><div>#Da mesma forma para gerar alinha de tendencia você pode usar o comando <font face="Courier New">abline()</font> ou <font face="Courier New">curve()</font> coloquei os dois mas fica a seu critério.</div><div><br></div><div>abline(modC)</div><div><br></div><div>#ou </div><div><br></div><div>curve(coef(modC)[1]+coef(modC)[2]*x,add=T)</div><div><br></div><div><br></div><div>Espero ter contribuído na solução do seu problema.</div><div><br></div><div>Att.</div><div><br></div><div>Tiago.</div><br><div><div id="SkyDrivePlaceholder"></div>> Date: Tue, 27 Nov 2012 17:35:25 +0000<br>> From: alanarocha@sapo.pt<br>> To: R-br@listas.c3sl.ufpr.br<br>> Subject: [R-br] gráfico de dispersão<br>> <br>> Olá Tiago,<br>> ja funcionou. obrigada<br>> como é agora para o grafico?<br>> Ana<br>> <br>> _______________________________________________<br>> R-br mailing list<br>> R-br@listas.c3sl.ufpr.br<br>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.<br></div> </div></body>
</html>