添加标签到abline ggplot2

Question

我在ggplot2中创建了一个条形图并添加了一个hline，没有任何问题。我遇到麻烦的地方是我想在hline的某处添加hline的值（理想情况是在左侧的线上方，距离轴的距离足够远，因为不是刻度线，虽然中间也会起作用）并且我遇到了很多麻烦，主要是因为geom_label不断将用于hline的标签添加到条形图中。以下是生成我正在处理的图表示例的代码：

# Stack Overflow Example

library(ggplot2)

plotData_A <- data.frame(name = c('Jim', 'Bill', 'Bob', 'Sue', 'Terry', 'Jill'), avg_leads = c(3,5,4,7,4,5))

plotData_B <- data.frame(salesman = c('Megan', 'Tim'), leads = c(7,4))

i <- as.character(plotData_B[1,1])

myPlot <- ggplot(plotData_A, aes(name, avg_leads, fill = name)) + geom_bar(stat = "identity") + theme(axis.title.x=element_blank(),axis.text.x=element_blank(),axis.ticks.x=element_blank()) + scale_fill_brewer(palette="Spectral") + ylab("Average Leads Created per Director") + ggtitle(paste0("Leads Converted: ", i)) + geom_hline(yintercept = plotData_B[which(plotData_B$salesman == i), 2], size = 1.25, linetype = "dotdash") 

非常感谢您提供的任何帮助。