R - Time series plot with labelled events and curve

Question

I have this example dataset (in my real dataset there is 355 observations)

PRDATE is the date of an event EVENTS is the text of the event COUNT is how many people who