在ggplot中顯示一個矩形，x軸為日期格式

Question

如何在ggplot中以x軸顯示日期格式的矩形？

我知道這段代碼：

geom_rect(xmin = 0, xmax = 1, ymin = 0, ymax = 1,   fill = "blue")

但是如果x軸是日期格式怎么辦？ xmin和xmax的語法是什么？ 像"2008-05-03 UTC"這樣的東西似乎不起作用。

Answer 1

set.seed(4)
df <- data.frame(date=as.Date(paste0("2017-01-", sprintf("%02d", 1:31))),
             val= sample(1:100, 31))

p <- ggplot(df, aes(date, val)) + geom_point()

p + annotate("rect",
    xmin = as.Date("2017-01-15"), xmax = as.Date("2017-01-20"), 
    ymin = -Inf, ymax = Inf,  fill = "blue", alpha=.3)

geom_rect也可以工作，但你需要欺騙代碼才能表現出alpha，例如

p + geom_rect(data=df[1,], 
             aes(xmin = as.Date("2017-01-15"), xmax = as.Date("2017-01-20"),
             ymin = -Inf, ymax = Inf),  
             fill = "blue", alpha=.3)