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.