在 x 轴上绘制时间序列时，对 ggplot 中的一个方面使用 annotate("rect")

Question

我在多个方面绘制不同的时间序列，我想使用 annotate() 仅为其中一个方面创建不同的背景颜色。一个方面代表 2018 年的最后 15 周（第 38-52 周），而另一个方面代表 2019 年的前 15 周（第 1-15 周）。我只想更改 2019 年第 5-8 周的背景颜色。但是，当我尝试这样做时，R 会将 2018 年的 x 轴范围从第 38-52 周更改为第 1-52 周。

我尝试在 2019 年的情节中仅在第 5-8 周创建一个矩形，如下所示：

annotate("rect", xmin = 5, xmax = 8, min = 0, ymax = Inf, alpha = 0.3, fill="grey") +

我使用的代码是：

library(ggthemes)
week <- c(38:52, 1:15)
minutes <- sample(160, 30, replace=T)
year <- c(rep(2018, 15), rep(2019,15))
dat <- data.frame(year, week, minutes)

ggplot(dat, aes(week, minutes, group=year)) +
  annotate("rect", xmin = 5, xmax = 8, min = 0, ymax = Inf, alpha = 0.3, fill="grey") +
  geom_line(size=1, color="black") +
  geom_point(size=2, color="black") +
  theme_fivethirtyeight() +
  facet_wrap(~ year, scales = "free") +
  scale_y_continuous(limits=c(0,200))

我希望有两个方面：一个是 2018 年的结果，x 轴范围在 38-52 之间，另一个是 2019 年的结果，x 轴范围在 1-15 之间。实际结果是一个是2018年的结果，x轴范围在1-52之间，一个是2019年的结果，x轴范围在1-15之间。

Answer 1

Annotate 无法执行此操作，因为您无法为其提供分面变量 (year)，但您可以使用 geom_rect 执行此操作。为此，您必须传递包含分面变量 (year) 的数据框：

感谢@aosmith，现在geom_rect只画了一次：

  ggplot(dat, aes(week, minutes, group=year)) +
  geom_line(size=1, color="black") +
  geom_point(size=2, color="black") +
  facet_wrap(~ year, scales = "free") +
  theme_fivethirtyeight() +
  scale_y_continuous(limits=c(0,200)) +
  geom_rect(data = data.frame(year = 2019), aes(xmin = 5, xmax = 8, ymin = 0, ymax = Inf), alpha = 0.3, fill="grey", inherit.aes = FALSE)

这会生成所需的图：

在 x 轴上绘制时间序列时，对 ggplot 中的一个方面使用 annotate("rect")

Use annotate("rect") for one facet in ggplot when plotting time series on x-axis

r

annotate

facet

ggplot2