r - 在 x 轴上的日期之间提供阴影

Question

这个问题在这里已经有了答案:





Make the background of a graph different colours in different regions

(3 个回答)


3年前关闭。




我在 R 中有一个图，X 轴上有日期/时间 (POSIXct)，Y 轴上有一些数据。
我想在 x 轴上每个日期的下午 3 点到下午 6 点之间在 x 轴上提供阴影

Answer 1

或多或少关注什么 Brian Diggs suggests above ,

#sample data
set.seed(666)
dat <- data.frame(x = seq(as.POSIXct('2011-03-27 00:00:00'), 
len= (n=24), by="1 hour"), y = cumsum(rnorm(n)))
#Breaks for background rectangles
rects <- data.frame(xstart = as.POSIXct('2011-03-27 15:00:00'), 
xend = as.POSIXct('2011-03-27 18:00:00'))

library(ggplot2)
ggplot() + 
  geom_rect(data = rects, aes(xmin = xstart, xmax = xend, 
            ymin = -Inf, ymax = Inf), alpha = 0.4) + 
  geom_line(data = dat, aes(x,y))

会给你这个，