r - 如何在 ggplot 中对轴标签进行分层？

Question

我的数据采用以下结构:

month <- c("May", "June", "July", "May", "June", "July")
year <- c("2015", "2015", "2015", "2016", "2016", "2016")
value <- c(1:3, 3:1)
df <- data.frame(month, year, value)

(数据实际上是从 1 月一直到 12 月，这只是一个简短的可重复示例。)

我正在使用 ggplot 绘制 value 的时间序列图(假设我不能使用 plot.ts() 原因太复杂，无法在此处解释)。如何对 x 轴的标签进行分层，以便每个刻度线都标有月份，但在其下方还有另一个标签，下面有年份，所以我得到类似:

-------+-------+-------+----//---+-------+-------+-----
      May     June    July      May     June    July
              2015                      2016

Answer 1

我不会制作两个轴，而是一个轴，其中包含调整后的标签，其中包含换行符。该示例显示了如何在每个月的下方添加年份。我习惯只把年份放在 1 月以下，如果 1 月不在那里，则在一年中绘制的第一个月。您可以根据自己的喜好调整标签的准备。

df$lab <- factor(1:6, labels = paste0(month,"\n",year))
ggplot(df, aes(x = lab, y = value)) + geom_point()