G分段年份和季度的X轴图[副本]

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轴,而不是其他美学。