r - ggplot2 中用矩形/阴影区域突出显示值

Question

这个问题已经有答案了:

Display a rectangle in ggplot with x axis in date format (1 个回答)

已关闭 4 年前。

大家好，我有以下示例数据:

library(ggplot2)
library(reshape)
library(tidyr)
library(dplyr)


set.seed(78)
vector <- runif(n = 360, min = -4, max = 4)
dates <- seq(as.Date('1980-01-01'), length.out=360, by='1 month')


df <- data.frame(dates = dates, index = vector)

#Aqui ya se hace la diferencia entre positivo y negativo con color
df$colour <- ifelse(df$index < 0, "Negative","Positive")
ggplot(df,aes(dates,index,label=""))+
  geom_bar(stat="identity",position="identity",aes(fill = colour))+
  scale_fill_manual(name = "Valor", values=c(Positive="firebrick",Negative="dodgerblue4"))+
  ggtitle("Index")+
  theme(plot.title = element_text(hjust = 0.5))+
  xlab("Year") + ylab("S.D.")

我生成了这个图像:

我想做的是用正方形或其他东西突出显示特定的时间间隔，所以它看起来像这样:

正如我所说，不一定是实线，它可以是阴影区域，有人知道我该怎么做吗？

Answer 1

正如 @dww 提到的，geom_rect 有效。添加下面的层:

  geom_rect(
    aes(
      xmin = as.Date('1993-06-01'),
      xmax = as.Date('1994-11-01'),
      ymin = min(index),
      ymax = 0
    ),
    fill = NA,
    color = "black",
    size = 2
  )