您可以为ggplot创建背景吗？

Question

我正在尝试使用ggplot创建具有不同颜色块的绘图，以表示一天中的不同时间段。我将做与下面包含的示例类似的操作。

Example plot with (similarly) desired background

这是我的剧情代码：

ggplot(Zx8, aes(x = dt, y = Activity, xlab= "Real Time")) + geom_point(size = 3, color = 'steel blue') + ylim(0,650) + xlab("Real Time") + ylab("Movement (mm)") + theme_bw() + ggtitle('Movement of Zx8 over a 48-hour period')

这是我当前的情节：

The current plot that I want to add a background to

我想添加：

1. 从6月13日和6月14日的16:00到17:00，以及从6月14日和6月15日的04:00到05:00的浅灰色背景或条纹灰色背景
2. 从17:00至04:00（6月13日至6月14日）以及6月14日至6月15日的深灰色背景

我在x轴上的数据使用bind_cols（将日期和时间绑定在一起）进行绑定，并且格式为format="%Y-%m-%d %H:%M:%S"（例如'2019-06-13 14:01:00）

您是否知道可以用来创建这种交替背景的任何代码？非常感谢您的帮助，因为我是R的新手！