具有分段年份和季度的ggplot x轴

Question

library(tidyverse)
df <- 
  tibble(
    year = rep(2009:2013, each = 4), 
    quarter = rep(c("Q1", "Q2", "Q3", "Q4"), 5), 
    sales = 40:59 + rnorm(20, sd = 5)
  )
ggplot(df, aes(x = quarter, y = sales, group = year)) + 
  geom_line() + 
  facet_grid(~year, scales = "free")

我可以用上面的代码分解年份和季度。这样可以逐年，逐季地创建多面图。

我希望它看起来更像下面的内容（以下），并用连续的线条，分段的年份和季度来表示。我如何获得这种外观？我主要是想复制x轴，而不是其他美学。