[R-br] Traçar linha representando a média em gráfico ggplot2

[Marcelo Laia]

Colegas,

Estou usando a rotina abaixo para produzir gráficos de Altura ~ DAP em
um fatorial com Clones em diferentes Espaçamentos.

O código ficou assim:

ggplot( dat , aes(x=DAP, y=Altura, color=as.factor(Espacamento) )) + 
    geom_point(size=1) +
    facet_grid(Espacamento ~ Clone) +
    theme(legend.position="none")

Como eu faço para traçar a média do DAP (y) e da Altura (x) em cada
grid?

É possível simular o código acima com os pacotes e código abaixo:

library(ggplot2)
head(mtcars)

ggplot( mtcars , aes(x=mpg, y=wt, color=as.factor( cyl ))) + 
  geom_point(size=1) +
  facet_grid( cyl ~ gear) +
  theme(legend.position="none")

Obrigado

-- 
Marcelo