Eu tenho o seguinte código para o meu ggplot - a função facet_wrap desenha 20 gráficos na página para cada Nome e há 5 Pcode ao longo do eixo x. Gostaria de calcular a média TE.Contr para cada nome e plotar esse valor como uma linha horizontal em cada um dos gráficos (que são divididos por Facet_wrap). Atualmente, meus códigos representam a média de ALL TE.Contr. valores em vez da média TE.Contr. do nome específico.

T<-ggplot(data = UKWinners, aes(x = Pcode, y = TE.Contr., color =  Manager)) + geom_point(size =3.5)+ geom_hline(aes(yintercept = mean(TE.Contr.)))
T<-T + facet_wrap(~ Name, ncol = 5)