geom_rect（）未在日期上工作

我试图在一个变量上创建一个阴影条，该变量在时间序列中移动，日期在x轴上

我正在为此使用

geom_rect（）

。如果日期在x轴上编号，我没有问题，但当x轴上有日期时，我得到以下错误：

错误：离散值提供给连续刻度

我试图将xmax从Inf更改为100，但似乎没有任何效果。数据按以下格式排列：

set.seed(333)
Start.Date <- as.Date("2015-05-01")
Date <- Start.Date + 0:40 
variable.1 <- rnorm(n = Date, mean = 720, sd = 300)
df <- data.frame(Date, variable.1)
df

library(ggplot2)

ggplot(df, aes(x = Date, y = variable.1)) +
    geom_rect(aes(xmin = 0, xmax = Inf, ymin = 500, ymax = 1100), fill = "blue", alpha = .2) +
    geom_point() + geom_line()

set.seed（333）
开始。日期我知道了

如果我将xmin和xmax排除在aes（）之外，它将生成很好的图形。
一般来说，只有数据列的名称应该放在
aes（）内。
。在您只需要一个矩形的示例中，
annotate（geom=“rect”，…）
可能更可取。