Olha se eu entendi, vc quer colocar uma linha em cada plot.

Veja a documentação de ?pairs  e os exemplos la que podem te dar varias ideias.
Mas acho que é isso que você precisa

#faça uma função panel, que vai lidar com os pontos de cada quadradinho
#aqui eu ploto os pontos e a linha.

panel.lm <- function(x, y) {
  points(y~x)
  abline(lm(y~x))
}

#dai é so entrar com a função, no caso eu escolhi faze isso na
diagonal inferior, mas voce pode setar como quiser.
pairs(data,lower.panel=panel.lm)

Lembrando que plot e pairs são a mesma coisa nesse caso, com vc
entrando com um data.frame.

E evite postar em multiplas listas.

Espero ter ajudado.
-- 
Grato
Augusto C. A. Ribas

Site Pessoal: http://recologia.wordpress.com/
Lattes: http://lattes.cnpq.br/7355685961127056
_______________________________________________
R-br mailing list
[email protected]
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.

Responder a