ggplot2：两个x轴抽动（年和月）和两行标签答案

【问题标题】：ggplot2: two x-axis tics (year and month) and labels on two linesggplot2：两个x轴抽动（年和月）和两行标签
【发布时间】：2022-01-23 23:13:14
【问题描述】：

我有这个绘图命令：

pdx_1990s_plot <- ggplot(pdx_disc_1990s, aes(year+(mon/12), vol)) +
    geom_bar(stat='identity', color='blue', fill='#0387fc', position='dodge') +
    theme_classic() +
    theme(plot.title = element_text(hjust = 0.5, face = 'bold')) +
    theme(plot.subtitle = element_text(hjust = 0.5, face = 'bold')) +
    ggtitle('Portland Monthly Mean Discharge', subtitle = '1988--1994') +
    xlab('Year') +
    ylab('Discharge (Cubic Feet/Second)')

它会生成一个带有 x 轴抽动及其标签的图。

我还没有找到如何为每个月设置一个小 tic，为每个年份设置一个较大的 tic，月份名称在一个标签行，年份标签在下面的第二行。

请给我指出如何做到这一点的来源，并举一个我可以模仿的例子。

TIA，

丰富

【问题讨论】：

请参阅How to make a great R reproducible example。通过dput(pdx_disc_1990s) 的输出提供您的数据。
虽然ggplot2 支持两侧之间的不同刻度长度，但我认为它不支持在同一侧改变刻度长度。我怀疑（没有验证）主要/次要 grids 的意图是为了解决这个问题，尽管我认为这不是足够的理由（对我来说）。
...不过，如果您不怕深入肘部（grob-modifying），请尝试stackoverflow.com/q/20886498/3358272
@r2evans：您引用的线程会针对一组因素更改每隔一个刻度线的大小。如果可能的话，我想要的是为每个月添加刻度线，并在该年的月份下方设置年份。刻度的大小相同，标签是月份（3 个字符），下面是年份。
我已经上传了剧情的副本。它将在上提供 5 天。应该有 ggplot2 图的历史，x 轴上有月份和年份。

标签： r ggplot2 x-axis

【解决方案1】：

我知道 ggplot2 不会让我做我想做的事，我也决定坚持我所拥有的，因为可变性模式比在每个栏下看到月份名称更重要。

感谢你们的回复和帮助。

节日快乐，注意安全。

【讨论】：