如何移除时间序列折线图X轴的日期间隔及对应轴文本？

问题说明 #

现有一份缺失2006年数据的月度时间序列，使用scale_x_date仅能隐藏2006年的X轴标签，但绘图区域仍会保留该年份对应的空白间隔。需要实现既隐藏该年份标签，又让前后数据连续绘制无间隔的效果。

数据与已尝试代码 #

生成数据 #

set.seed(123)
n <- 100
y <- sample.int(n, replace=TRUE)
t <- seq(from=as.Date("2001-01-01"), by="month", length.out=n)
dat <- data.frame(t, y)[!format(t, "%Y") %in% 2006, ]

已尝试的代码（仅隐藏标签，仍有间隔） #

library(ggplot2)
my_break_fun <- function(x){
  br <- seq(from = min(x), to=max(x), by="2 month")
  br[!format(br, "%Y") %in% 2006]
}

dat |> 
  ggplot(aes(x=t, y=y)) +
  geom_line() +
  scale_x_date(
    date_labels="%b-%Y",
    breaks=my_break_fun
  ) +
  theme(axis.text.x = element_text(angle=90, hjust=1, vjust=1))

解决方案 #

核心思路：原生日期类型会按实际时间跨度分配X轴位置，缺失年份的时间差会导致空白。我们需要将日期转换为连续的序列标识，让ggplot2按数据点的顺序绘图，而非实际日期跨度。

方法1：将日期转为有序因子 #

给每个日期分配一个连续的因子水平，强制ggplot2按顺序绘制，忽略实际日期间隔：

# 给数据添加有序因子列
dat$t_fct <- factor(format(dat$t, "%b-%Y"), 
                    levels = unique(format(dat$t, "%b-%Y")),
                    ordered = TRUE)

# 绘图
dat |> 
  ggplot(aes(x=t_fct, y=y, group=1)) +  # group=1确保折线连接所有点
  geom_line() +
  scale_x_discrete(breaks = function(x) x[seq(1, length(x), 2)]) +  # 每2个标签显示一个
  theme(axis.text.x = element_text(angle=90, hjust=1, vjust=1))

方法2：使用连续索引+自定义标签 #

创建一个连续的数值索引，手动将X轴标签替换为日期格式：

# 添加连续索引列
dat$idx <- seq(nrow(dat))

# 定义标签函数，每2个数据点显示一个日期标签
label_fun <- function(x) {
  dates <- dat$t[dat$idx %in% x]
  format(dates, "%b-%Y")
}

# 绘图
dat |> 
  ggplot(aes(x=idx, y=y)) +
  geom_line() +
  scale_x_continuous(breaks = seq(1, nrow(dat), 2),  # 每2个点设置一个刻度
                     labels = label_fun) +
  theme(axis.text.x = element_text(angle=90, hjust=1, vjust=1)) +
  xlab("日期")  # 替换X轴标题

两种方法都能实现数据连续绘制，同时隐藏2006年的相关标签，完全消除绘图区域的空白间隔。

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