ggplot2中的两列x轴（按第一组分组，指定第二列）

Question

我有以下季度数据（关键代表年度季度）：

       tic    saleq    key
1     AAPL 1346.202 1990-2
2     AAPL 1364.760 1990-3
3     NOK  1354.090 1990-4

因为它现在在一个列中，我能够将组合列的线绘制为x轴：

p <- ggplot(example, aes(x = key, y = saleq))
p + geom_line(aes(color=tic, group=tic)) + ylab("Quarterly sales")

然而，这（逻辑上）会产生大量重复的“年”。价值（即x栏落满2014-1,2014-2）

我希望能够使用ggplot2通过＆＃39;分组＆＃39;按年和年然后在x轴上显示它上方的四分之一。与在此Excel中绘制Excel中的折线图类似。在ggplot2中是否可以这样？

我已转发到this question，尝试类似的事情。但是，这并没有考虑到命名多个组＆＃39; x值：我是否必须动态计算每年中间的位置（考虑到每年的数据季度数？）