R - Putting labels on the graph for a specific date

Question

Hi I have this code for a ggplot:

p <- ggplot(data2, aes(x=prdate, y=data2$count)) +
  geom_segment( aes(x=prdate, xend=prdate, y=0, yend=data2$count ),