R- Time series plot with events

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