r - ggplotに平均線を追加するためのコード?

Question

以下のコードを使用して、ggplot をさらに下の画像として追加しました。プロットは、y 軸に放水量、x 軸に時間の割合を示す持続時間曲線です。ラインは 1 年間の流量測定を表しており、合計で 20 年 = 20 のラインがあります。gghighlight を使用して、経時的な平均排水量を強調表示したいと考えています。平均排水量を追加するにはどうすればよいですか?

sy2.1 %>% 
  group_by(year(t)) %>% 
  arrange(desc(WaterDis)) %>% 
  mutate(t3 = 1:n()/n()*100) %>% 
  ggplot(aes(t3, WaterDis, colour=year(t),
             group=year(t))) +
  geom_line(size=1) +
  scale_y_continuous(expand=c(0, 0)) +
  scale_x_continuous(expand=c(0.001, 0)) +
  labs(x="% of time", y="Water discharge (m3/s)", colour="Year") +
  theme_classic()