R 如何调整每个面板中的文本？

我试图用每个分布的平均值为每个图添加文本。问题是我不知道如何调整文本，使它们不会相互重叠。我还要加上“男性平均数=xxx”和“女性平均数=xxx”。 样本数据为：

     cost gender year
1 305.665 Female 2013
2 194.380 Female 2013
3 462.490 Female 2013
4 200.430 Female 2013
5 188.570 Female 2013
6 277.245 Female 2013

代码是：

library(dplyr)
library(ggplot2)
costs<-read.table("cost_gender_1.txt",header=TRUE)
df<-data.frame(costs)
meanData = df %>% group_by(gender, year) %>% summarise(meancost = mean(cost))
ggplot(df, aes(cost,fill=gender)) +
  geom_histogram(breaks=seq(0,3000,by=30), position = "dodge") +
  facet_wrap(~year) +
  labs(x="Costs",y="Number of Members")+ggtitle("All Tiers") +
  geom_text(data=meanData, aes(label=round(meancost,1), x=2500, y=2300), colour="#F8766D", hjust=1) +
  theme(plot.title = element_text(color="black", size=14, face="bold"))

库（dplyr）
图书馆（GG2）
成本百分比汇总（平均成本=平均（成本））
ggplot（df、aes（成本、填充=性别））+
几何图形柱状图（打断=序号（03000，比=30），位置=“道奇”）+
面_包装（~年）+
实验室（x=“成本”，y=“成员数量”）+ggtitle（“所有层级”）+
几何图形文本（数据=平均数据，aes（标签=圆形（平均成本，1），x=2500，y=2300），颜色=“#F8766D”，hjust=1）+
主题（plot.title=element\u text（color=“black”，size=14，face=“bold”））

平均成本为：

   gender  year meancost
   <chr>  <int>    <dbl>
 1 Female  2013     506.
 2 Female  2014     502.
 3 Female  2015     471.
 4 Female  2016     526.
 5 Female  2017     507.
 6 Female  2018     530.
 7 Male    2013     492.
 8 Male    2014     481.
 9 Male    2015     449.
10 Male    2016     492.
11 Male    2017     469.
12 Male    2018     488.

性别年平均成本
1女2013 506。
2女2014 502。
3女性2015 471。
4女性2016 526。
5女性2017 507。
6女性2018 530。
7男2013 492。
8男2014 481。
9男2015 449。
10男2016 492。
11男2017 469。
12男2018 488。

输出如下所示：

---

一种解决方案是使用例如

position=“stack”

。否则，只需使用单独的y值

y = rep(c(2300, 2200), each = n_distinct(meanData$year))