я есть следующий код для моего ggplot - функция facet_wrap рисует 20 страниц на странице для каждого Имени, и вдоль оси x есть 5 Pcode. Я хотел бы рассчитать среднее значение TE.Contr для каждого имени и построить это значение в виде горизонтальной линии на каждом из графиков (которые разделены Facet_wrap). В настоящее время мои коды показывают среднее значение ALL TE.Contr. значения вместо среднего TE.Contr. конкретного имени.

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)