如何在R中的事件之间绘制日期间隔

我有一个数据框，其ID与开始，结束日期和另一个与前两个事件之间发生的事件相关联。

我想在纵坐标上绘制ID，并在横坐标上绘制日期，并在所考虑的时间段的开始和结束之间划一条线，并为事件日期画一个圆圈（或其他形状）。

几个小时以来，我一直在努力寻找合适的解决方案，因此，我们将不胜感激！

library(tidyverse)

set.seed(2018-11-11)

df <- data_frame(
  ID = c('A', 'B', 'C'),
  begin = seq(as.Date("2017-06-01"), as.Date("2017-08-31"), "1 month"),
  event = seq(as.Date("2018-06-01"), as.Date("2018-08-31"), "1 month"),
  end = seq(as.Date("2020-06-01"), as.Date("2020-08-31"), "1 month")
) 

ggplot(df, aes(x = begin, y = ID, group = ID)) + 
  geom_point() + 
  geom_line()+
  xlab('Dates') +
  ylab('ID')