使用 ggplot2 和其他方法对备用季度进行着色

Question

我想使用 ggplot2 或 R 中的任何其他方式为折线图创建垂直带。

    date <- seq.Date(from = as.Date("2015/01/01"), to = as.Date("2018/01/01"), by = 1)
    data <- runif(1097)
    
    df <- data.frame(cbind(date,data))
    df$date <- as.Date(df$date)
    
    datebreaks <- seq(as.Date("2015/01/01"), as.Date("2018/01/01"), by = "3 month")
    
    
    ggplot(df, aes(x = date, y = data)) + 
        geom_line() + ylim(-1,2) +
        scale_x_date(breaks = datebreaks)

给了这个

我需要一张带有阴影的交替季度图表。

Answer 1

据我所知，没有 ggplot 方法，但您可以很容易地生成条形图并使用 geom_rect。

library(ggplot2)
library(dplyr)
library(lubridate)

df <- data.frame(
  date = seq.Date(from = as.Date("2015/01/01"), to = as.Date("2018/01/01"), by = 1),
  data = runif(1097)
)


datebreaks <- seq(as.Date("2015/01/01"), as.Date("2018/01/01"), by = "3 month")

# Generate bars
df_bars <- data.frame(
  xmin = seq(as.Date("2015/01/01"), as.Date("2017/07/01"), by = "6 months"),
  ymin = -Inf, ymax = Inf
) %>% 
  mutate(xmax = xmin + months(3))

ggplot(df) + 
  geom_rect(data = df_bars, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax),
            fill = '#55555555') +
  geom_line(aes(x = date, y = data)) + 
  scale_x_date(breaks = datebreaks, expand = c(0,0),
               labels = function(x) paste0(year(x), ' Q', quarter(x))) + 
  ylim(c(-1,2))

编辑：我添加了一条格式化 x 轴的线

Answer 2

1) xblocks zoo 包具有xblocks 函数，允许以下紧凑公式：

library(zoo)

z <- read.zoo(df)
plot(z, xaxt = "n")
yq <- as.yearqtr(time(z))

# custom axis - optional - if omitted also omit xaxt arg in plot
yq.u <- unique(yq)
axis(1, as.Date(yq.u), yq.u)

xblocks(z, cycle(yq) %in% c(1, 3), col = adjustcolor("blue", 0.2))

2) panel.xblocks latticeExtra 包也有panel.xblocks，所以我们可以使用下面的点阵图形代码。如果需要默认比例，请省略 scales 参数。

library(latticeExtra)
library(zoo)

z <- read.zoo(df)
yq <- as.yearqtr(time(z))
yq.u <- unique(yq)

xyplot(z, scales = list(x = list(at = as.Date(yq.u), lab = yq.u))) + 
  layer(panel.lines(..., col = 1)) + 
  layer(panel.xblocks(z, cycle(yq) %in% c(1, 3), col = adjustcolor("blue", 0.2)))