如何在ggplot日期型X轴上微调刻度线（避免紧贴边界）

我使用如下R代码绘制了带有日期型X轴的分面ggplot图：

mod_h1_h3_probs_canada %>% bind_rows(h1_mod1_mod3_qc_probs) %>% 
    mutate(Election = ymd(Election, truncated = 2L)) %>% ggplot(., 
    aes(x = Election, y = estimate, col = Party, shape = Model, 
        group = Model)) + geom_point() + facet_wrap(~fct_relevel(Party, 
    "PC", "Liberal", "NDP", "Bloc"), nrow = 2, ncol = 2) + scale_color_manual(values = c("lightblue", 
    "darkred", "orange", "cyan")) + guides(col = "none") + geom_hline(yintercept = 0) + 
    labs(x = "Election", y = "Delta P of voting for Party") + 
    geom_smooth(method = "loess", aes(linetype = Model), se = F, 
        linewidth = 1) + scale_x_date(breaks = "10 years", date_labels = "%Y", 
    limits = c(ymd("1970-01-01"), ymd("2020-01-01")), expand = c(0, 
        0), guide = guide_axis(angle = 90)) + theme(axis.text.x = element_text(size = 12))

Created on 2025-05-26 with reprex v2.1.1

当前X轴刻度线紧贴绘图边界，我对此效果不满意，请问如何将刻度线向内微调？

你需要调整X轴的扩展参数，让绘图区域在设定的日期范围基础上留出微小内边距，从而让刻度线不再紧贴边界。以下是两种常用实现方式：

方式1：按比例添加扩展空间 #

修改scale_x_date中的expand参数，将原有的expand = c(0, 0)替换为按比例扩展的设置，比如左右各增加1%的空间：

scale_x_date(breaks = "10 years", date_labels = "%Y",
             limits = c(ymd("1970-01-01"), ymd("2020-01-01")),
             expand = expansion(mult = c(0.01, 0.01)),  # 左右各扩展1%
             guide = guide_axis(angle = 90))

方式2：按固定天数添加扩展空间 #

如果需要更精确的控制（比如固定增加半年的空间），可以用add参数指定具体天数：

scale_x_date(breaks = "10 years", date_labels = "%Y",
             limits = c(ymd("1970-01-01"), ymd("2020-01-01")),
             expand = expansion(mult = 0, add = 182),  # 左右各添加182天（约半年）
             guide = guide_axis(angle = 90))

这两种方式都会让X轴绘图区域略宽于你设定的1970-2020范围，原本紧贴边界的刻度线会自然向内偏移，同时保持刻度标签的位置不变。

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