ggplot日期为x轴的异常问题：首个日期超出边界+刻度不全

• 首个日期超出边界：ggplot对时间类型x轴默认的两侧留白边距是固定比例，你设置的柱子宽度仅为0.1，过窄的柱子会导致最左侧分组的展示位置偏左，默认边距不足以容纳对应刻度和柱子，就会溢出绘图窗口边界。
• 未展示所有日期刻度：yearqtr属于连续型时间变量，ggplot默认会根据画布尺寸自动选择间隔均匀的刻度展示，当时间点数量较多时就会自动隐藏部分刻度，不会全量显示。

通过自定义x轴的刻度规则和边距即可一次性解决两个问题，完整修改后的代码如下：

library(zoo)
library(quantmod)
library(ggplot2)
Data = data.frame('class' = c(rep(c('a', 'b', 'c'), 8), c('a', 'b')), 'Date' = as.yearqtr(rep(c('2021 Q4', '2022 Q1', '2022 Q2', '2022 Q3', '2022 Q4', '2023 Q1', '2023 Q2', '2023 Q3', '2023 Q4' ), each = 3))[-27], 'Value' = 1:26)
ggplot(Data, aes(x = Date, y = Value, fill = class)) +
  geom_bar(stat = 'identity', position = 'dodge', width = 0.1) +
  # 自定义x轴配置
  scale_x_yearqtr(
    breaks = unique(Data$Date), # 强制展示所有存在的季度刻度
    expand = expansion(mult = c(0.08, 0.03)) # 调整左右留白，左侧多留空间避免溢出
  )

代码修改说明 #

• scale_x_yearqtr()是zoo包针对yearqtr类型提供的专用坐标轴配置函数，兼容性优于通用的连续轴配置。
• breaks = unique(Data$Date)指定刻度为数据中所有出现过的季度，解决刻度缺失问题。
• expand = expansion(mult = c(0.08, 0.03))手动设置x轴左右两侧的留白比例，左侧预留8%的空间刚好容纳最左侧的刻度和柱子，右侧预留3%避免最右侧元素贴边，你可以根据实际展示效果调整这两个数值。

内容的提问来源于stack exchange，提问作者Bogaso