Boa tarde grupo, acho que é uma dúvida boba, mas não estou conseguindo resolver. Segue o exemplo desse gráfico que sai via ggplot2:

grupo<-rep(c(1,2,3),8)
nível<-rep(c(rep("I",3),rep("II",3),rep("III",3),rep("IV",3)),2)
lote<-c(rep("L1",12),rep("L2",12))
res<-rnorm(24,100,30)
datos<-data.frame(cbind(grupo,nível,lote,res))
datos$res<-as.numeric(datos$res)

ggplot(datos,aes(y=res,x=nível))+
  geom_point(aes(colour=grupo))+
  facet_wrap(~lote)

O resultado gráfico é algo assim:
Imagem incorporada

Eu gostaria de passar uma linha que ligasse as médias dos dados de cada nível, segundo cada lote, ou seja ligando a média do nível I a média do nível II... Teriam como me dar uma ajuda?

Muito obrigado!!!

Diogo Jerônimo
Bacharel em Ciências Estatísticas - ENCE/IBGE
Mestre em Metrologia - PUC-Rio/PósMQI
http://lattes.cnpq.br/8996149312896520