如何在ggplot中裁剪时间序列的缺失数据区间

问题背景 #

需要绘制含大段缺失数据的时间序列，希望跳过缺失区间的展示，避免拆分图表后出现的x轴刻度混乱、手动调整元素繁琐等问题。测试数据及原始绘图代码如下：

# Setup 
library(tidyverse)
library(patchwork)

# Set seed 
set.seed(123)

# Generate data
df_test <- 
  tibble(
    date = seq(as.Date("2010-1-1"), as.Date("2015-1-1"), by = "months"),
    value = rnorm(n = length(date), mean = 10, sd = 1)) %>% 
  mutate( # Create missing values
    value = ifelse(
      date > as.Date("2010-03-20") & date < as.Date("2011-01-14"), 
      NA, 
      value))

# 原始全范围绘图
gg_full <- 
  df_test %>% 
  ggplot(aes(x = date, y = value)) +
  geom_point() + 
  geom_step()

解决方案 #

方法一：用ggbreak直接截断坐标轴（推荐）

ggbreak可以在单张图内截断坐标轴，自动保留轴的一致性，无需拆分图表。

# 首次使用需安装
# install.packages("ggbreak")

library(tidyverse)
library(ggbreak)

# 绘制截断后的时间序列
df_test %>% 
  ggplot(aes(x = date, y = value)) +
  geom_point() + 
  geom_step() +
  # 指定截断区间，设置两段宽度比例为1:6（与原patchwork比例一致）
  scale_x_date_break(breaks = c("2010-03-20", "2011-01-14"), 
                     scales = "free",
                     space = c(1, 6)) +
  theme_bw()

该方法会在x轴用断裂标记（默认双斜线）表示被跳过的缺失区间，y轴完全统一，无需手动调整任何轴元素。

方法二：数据分组后用facet（无额外包依赖）

若不想引入新包，可先标记有效数据段，再用facet_wrap实现并排展示，保持y轴统一：

library(tidyverse)

# 标记有效数据段
df_grouped <- df_test %>%
  mutate(
    segment = case_when(
      date <= as.Date("2010-03-20") ~ "Early",
      date >= as.Date("2011-01-14") ~ "Late",
      TRUE ~ NA_character_
    )
  ) %>%
  drop_na(segment)

# 绘制facet图
df_grouped %>%
  ggplot(aes(x = date, y = value)) +
  geom_point() +
  geom_step() +
  facet_wrap(~segment, scales = "free_x", nrow = 1) +
  theme_bw() +
  # 调整间距并隐藏分组标签，模拟单图效果
  theme(panel.spacing = unit(0.2, "cm"),
        strip.background = element_blank(),
        strip.text = element_blank())

两种方法对比：ggbreak简洁直观，适合快速实现截断效果；facet方法无需额外依赖，适合需要精细控制绘图元素的场景。

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