Conditionally change background colour of line plot in ggplot2

Question

I have a dataset that looks like this:

Date <- seq(as.Date("2018-01-01"),as.Date("2021-01-01"),by="days")
quant <- runif(1