当日期变量作为x轴[R]时，如何使用geom_rect？

library(ggplot2)

# 创建一个数据框，包含日期和数值变量
data <- data.frame(
  date = as.Date(c("2022-01-01", "2022-01-05", "2022-01-10")),
  value = c(10, 15, 8)
)

# 创建一个基础的散点图
p <- ggplot(data, aes(x = date, y = value)) +
  geom_point()

# 添加矩形
p + geom_rect(
  aes(xmin = as.Date("2022-01-02"), xmax = as.Date("2022-01-08"), ymin = -Inf, ymax = Inf),
  fill = "blue",
  alpha = 0.2
)