基于不同数据框的ggplot双面板共享X轴绘图问题求助

你的核心问题是用两个结构不同的数据框绘制上下排列的面板图并共享X轴，原代码的facet_wrap用法错误——该函数要求数据在同一数据框且有分组变量，而你的两个数据geom类型、变量都不匹配。推荐用patchwork包实现，步骤如下：

方法：使用patchwork拼接独立绘图对象 #

patchwork是专门用于组合ggplot图形的工具，能轻松实现面板拼接和轴共享，适合你复杂的实际绘图需求。

步骤1：安装并加载patchwork #

如果未安装，先执行：

install.packages("patchwork")

步骤2：分别绘制两个独立图形 #

先画上方的点图，再画下方的线段图（隐藏下方图的X轴元素，避免重复）：

# 创建数据（你的原数据）
set.seed(1)
x1 <- 1:100
x2_end <- seq(from = 4, to=100, by=3)
x2_start <- x2_end - 3
df1 <- data.frame(y1 = cumsum(rnorm(length(x1))), x1)
df2 <- data.frame(y2 = sample(c(0,1), length(x2_start), replace = T), x2_start, x2_end)

# 绘制上方图p1
p1 <- ggplot(df1, aes(x = x1, y = y1)) +
  geom_point() +
  labs(x = "X轴", y = "y1") +
  theme_bw()

# 绘制下方图p2，隐藏X轴标签、刻度
p2 <- ggplot(df2, aes(x = x2_start, xend = x2_end, y = y2, yend = y2)) +
  geom_segment() +
  labs(y = "y2") +
  theme_bw() +
  theme(
    axis.title.x = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank()
  )

步骤3：拼接图形并共享X轴 #

用/表示上下拼接，plot_layout(axes = "collect")会自动收集共享轴：

library(patchwork)
p1 / p2 + plot_layout(axes = "collect")

可选：统一X轴范围 #

如果需要两个图的X轴范围完全一致（优化视觉对齐效果），可以在两个绘图代码中添加xlim：

# 计算整体X范围
x_range <- range(c(df1$x1, df2$x2_start, df2$x2_end))

# 修改p1和p2，添加xlim
p1 <- p1 + xlim(x_range)
p2 <- p2 + xlim(x_range)

原代码失败原因 #

facet_wrap的设计逻辑是基于同一数据框的分组变量拆分面板，你的两个数据框变量不对应（一个是x1/y1，一个是x2_start/x2_end/y2），且geom类型不同，强行使用会导致数据匹配错误，无法生成正确面板。

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