如何在ggplot2分面网格中实现跨分面的连续geom_line？

问题根源 #

默认facet_wrap的分面机制会将每个分组的数据独立绘制，加上scales='free_x'后，线条会在分面边界被裁剪，导致断开。另外你当前隐藏了x轴标签，需要调整显示逻辑让刻度更直观。

解决方案 #

我们可以借助ggh4x包的增强分面功能实现跨分面连续线条，同时优化x轴标签显示：

• 用ggh4x::facet_wrap2替代原生分面，关闭分面裁剪限制
• 调整x轴刻度，显示分面内的月份标签，保留年份作为分面标题
• 简化数据处理流程，转成长格式让绘图代码更简洁

修改后的完整代码 #

library(fpp3)
library(tsibble)
library(ggplot2)
library(scales)
library(dplyr)
library(ggh4x)  # 新增包用于增强分面控制

# 加载并转换数据为tsibble格式
pr1_tsibble <- as_tsibble(AirPassengers)

# 执行X-13ARIMA-SEATS时间序列分解
fit <- pr1_tsibble %>%
  model(X_13ARIMA_SEATS(value ~ transform(`function` = "none") + x11(mode = "add"))) %>%
  components()

# 整理数据为长格式，简化绘图逻辑
combined_long <- fit %>%
  mutate(Observed = pr1_tsibble$value) %>%  # 合并原始观测数据
  select(index, Observed, trend, seasonal, irregular) %>%
  pivot_longer(cols = -index, names_to = "Component", values_to = "Value") %>%
  mutate(
    year = factor(year(index)),
    index_date = as.Date(index)  # 转换为Date类型适配ggplot
  )

# 绘制图形
ggplot(combined_long, aes(x = index_date, y = Value, color = Component)) +
  geom_line(linewidth = 0.8) +
  xlab("") + 
  ylab("") +
  theme_light() +
  scale_color_manual(
    values = c("Observed" = "grey", "trend" = "black", "seasonal" = "green", "irregular" = "blue"),
    name = ""
  ) +
  scale_y_continuous(labels = function(x) format(x, nsmall = 2)) +
  scale_x_date(
    labels = date_format("%b"),  # 显示月份缩写
    breaks = date_breaks("1 month")  # 每月一个刻度
  ) +
  # 用ggh4x分面实现跨分面线条
  facet_wrap2(~year, 
              nrow = 1, 
              scales = "free_x", 
              strip.position = "bottom",
              strip.clip = "off") +  # 关键参数：关闭分面裁剪
  theme(
    panel.spacing.x = unit(0, "lines"),
    panel.grid = element_blank(),
    legend.position = "top",
    strip.background = element_rect(colour = "white", fill = "grey"),
    axis.text.x = element_text(size = 8)
  )

关键修改说明 #

• 跨分面线条：facet_wrap2的strip.clip = "off"参数允许线条突破分面边界，实现连续绘制效果
• x轴优化：每个分面内显示月份缩写，分面标题显示年份，时间逻辑更清晰
• 代码简化：转成长格式后仅需一个geom_line即可绘制所有成分，减少冗余代码
• 流程优化：直接从分解结果合并数据，避免手动提取列的繁琐操作

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