ggplot折线图中的多行x轴标签

Edit:该问题已被标记为重复，但回复here https://stackoverflow.com/questions/18165863/ggplot2-labels-of-grouping-values-below-the-plot已尝试但没有成功，因为所讨论的情况是折线图，而不是条形图。应用这些方法会生成一个包含 5 条线的图表，每年 1 条线 - 没有用。投票标记为重复的人是否实际上在该问题提供的示例数据集上尝试了这些方法？如果是这样，请发布作为答案。

原问题：

Excel 数据透视图中有一个功能，允许使用多级分类轴。我正在尝试找到一种方法来执行相同的操作ggplot（或 R 中的任何其他绘图包）。

考虑以下数据集：

set.seed(1)
df=data.frame(year=rep(2009:2013,each=4),
              quarter=rep(c("Q1","Q2","Q3","Q4"),5),
              sales=40:59+rnorm(20,sd=5))

如果将其导入到 Excel 数据透视表，则可以直接创建以下图表：

请注意 x 轴有两个级别，一个用于季度，一个用于分组变量年份。多级轴是否可以ggplot?

注意：有一个带有facets的黑客可以产生类似的东西，但这不是我正在寻找的。

library(ggplot2)
ggplot(df) +
  geom_line(aes(x=quarter,y=sales,group=year))+
  facet_grid(.~year,scales="free")

使用添加新标签annotate(geom = "text",。关闭 x 轴标签的裁剪clip = "off" in coord_cartesian.

Use theme添加额外边距（plot.margin）并删除（element_blank()) x 轴文本 (axis.title.x, axis.text.x）和垂直网格线（panel.grid.x).

library(ggplot2)

ggplot(data = df, aes(x = interaction(year, quarter, lex.order = TRUE), 
                      y = sales, group = 1)) +
  geom_line(colour = "blue") +
  annotate(geom = "text", x = seq_len(nrow(df)), y = 34, label = df$quarter, size = 4) +
  annotate(geom = "text", x = 2.5 + 4 * (0:4), y = 32, label = unique(df$year), size = 6) +
  coord_cartesian(ylim = c(35, 65), expand = FALSE, clip = "off") +
  theme_bw() +
  theme(plot.margin = unit(c(1, 1, 4, 1), "lines"),
        axis.title.x = element_blank(),
        axis.text.x = element_blank(),
        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank())

另请参阅@eipi10 的精彩回答：带有嵌套 x 变量的两行轴标签（年份低于月份） https://stackoverflow.com/questions/44616530/axis-labels-on-two-lines-with-nested-x-variables-year-below-months