Update plot_events.R