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

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