R 避免在优势比图中重复geom_文本

我正在尝试绘制一个出版物就绪图，其中包含几个交叉表的优势比。为此，我还想包括赔率的值以及我观察到的数量。由于某些原因，我的geom_文本被复制（见下文）：

这是相应的代码：

p1 <- ggplot(odd, aes(odds.ratio, fct_rev(names)))

p1<-p1+geom_vline(aes(xintercept = 1), size = .25, linetype = 'dashed') +
    geom_errorbarh(aes(xmax =ifelse(upr.ci<13,upr.ci,13), xmin = lwr.ci), size = .5, height =.2, color = 'gray50') +
    geom_point(size = 5, color = 'orange') +
    geom_text(aes(label=paste(round(odds.ratio,2),sep =" ","(n=",n,")")), size = 3,color='gray50')+
    ylab('D') +
    xlab('Odds ratio')+
    ggtitle('R')

---

p1请使您的问题重现