在ggplot中添加刻度断点时如何保持网格线完整？

问题原因 #

你在scale_x_continuous的breaks参数中混合了非间隔年份（2001、2007）与常规间隔序列，导致x轴主要刻度包含了额外值。而theme_minimal主题的网格线默认会与所有主要刻度对齐，因此2000-2002区间出现了额外网格线，造成视觉错乱。

解决方案一（推荐）：将特殊年份设为次要刻度 #

把需要高亮的年份设为次要刻度，保留原有间隔的年份作为主要刻度，网格线仅跟随主要刻度显示，既保留特殊年份的标识，又避免网格线错乱：

test_set <- structure(list(year = c(2000, 2005, 2010), index = c(7.24189432608059, 
7.29732635140488, 5.57837924621813)), row.names = c(NA, -3L), class = c("tbl_df", 
"tbl", "data.frame"))

library(ggplot2)

test_set |>
  ggplot(aes(x = year, y = index)) +
  geom_line() +
  geom_vline(xintercept = 2001, linetype=3) +
  geom_vline(xintercept = 2006, linetype=2) +
  geom_vline(xintercept = 2007, linetype=1) +
  scale_x_continuous(
    breaks = seq(2000, 2010, 2),  # 主要刻度保持原2年间隔
    minor_breaks = c(2001, 2007),  # 特殊年份设为次要刻度
    guide = guide_axis(minor.ticks = TRUE)  # 显示次要刻度标记
  ) +
  theme_minimal()

解决方案二：保留特殊年份为主要刻度，控制网格线显示位置 #

如果需要将2001、2007作为主要刻度显示，先对breaks排序，再通过主题设置让网格线仅在原间隔年份位置显示：

test_set |>
  ggplot(aes(x = year, y = index)) +
  geom_line() +
  geom_vline(xintercept = 2001, linetype=3) +
  geom_vline(xintercept = 2006, linetype=2) +
  geom_vline(xintercept = 2007, linetype=1) +
  scale_x_continuous(
    breaks = sort(c(2001, 2007, seq(2000, 2010, 2)))  # 对所有刻度值排序
  ) +
  theme_minimal(
    panel.grid.major.x = element_line(
      color = "grey80",
      data = data.frame(x = seq(2000, 2010, 2))  # 仅在指定位置绘制网格线
    )
  )

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