How can I add the value of geom_vline to the graph? I am able to add the "Avg." label, but cannot add the actual value

[Eli_Vergara]

I need to add the average value to this graph. I can add the label, but when I don't know how to add the actual average value. What am I missing?

This is the plot:

generated from the following code:

july_p <- ggplot(july_selected, aes(x=Score, y=sites, fill=PM))+ geom_bar(stat="identity")+ facet_wrap("PM")+theme_minimal()+theme(legend.position="top")+ scale_y_discrete(limits=rev)+
facet_wrap(~fct_relevel(PM,"37","40","44","50", "51", "52", "53", "55", "66", "67", "98", "100", "101", "102", "103"))+
theme(legend.position = "none")+
labs(
x="",
y="")+
ggtitle('Score by Performance Measure', subtitle = "Vertical line = Monthly Average")

july_p <- july_p + geom_vline(july_selected, mapping = aes(xintercept=Avg.), color="black", alpha=.5, size=.7) + geom_text(mapping = aes(x=Avg.-7), color="black", label='Avg.', y=10, size=3, )

The source data is as follows:

PM	Avg.	m	sites	Score
100	100	100	Douglas	100
100	100	100	Eyman	100
100	100	100	Florence	100
100	100	100	Lewis	100
100	100	100	Perryville	100
100	100	100	Phoenix	100
100	100	100	Safford	100
100	100	100	Tucson	100
100	100	100	Winslow	100
100	100	100	Yuma	100
101	100	99.6	Douglas	100
101	100	99.6	Eyman	98
101	100	99.6	Florence	100
101	100	99.6	Lewis	100
101	100	99.6	Perryville	100
101	100	99.6	Phoenix	100
101	100	99.6	Safford	100
101	100	99.6	Tucson	100
101	100	99.6	Winslow	100
101	100	99.6	Yuma	98
102	99	99.1	Douglas	100
102	99	99.1	Eyman	96
102	99	99.1	Florence	100
102	99	99.1	Lewis	100
102	99	99.1	Perryville	100
102	99	99.1	Phoenix	100
102	99	99.1	Safford	97
etc.

[Eli_Vergara]

I figured it out, so I'll share for other's reference. See the code changes I made below:

july_p <- ggplot(july_selected, aes(x=Score, y=sites, fill=PM))+ geom_bar(stat="identity")+ facet_wrap("PM")+theme_minimal()+theme(legend.position="top")+ scale_y_discrete(limits=rev)+
facet_wrap(~fct_relevel(PM,"37","40","44","50", "51", "52", "53", "55", "66", "67", "98", "100", "101", "102", "103"))+
theme(legend.position = "none")+
labs(
x="",
y="")+
ggtitle('Score by Performance Measure')

july_p <- july_p +
geom_vline(july_selected, mapping = aes(xintercept=as.numeric(Avg.)), color="black", alpha=.7, size=.7) +
geom_text(mapping = aes(x=Avg.-25), label='Avg.', color="#174873", y=1.2, size=4, )+
geom_text(mapping = aes(x=Avg.-5,y=1.2, label = Avg., inherit.aes = TRUE))