如何在ggplot2的facet_wrap中按列设置不同X轴刻度并去重标签

你需要的是同列子图共享X轴（仅底部显示刻度）、列间X轴独立缩放的效果，ggplot2原生的facet_wrap没有直接参数实现，但可以通过两种方式搞定：

方法一：用ggh4x包的facet_wrap2（推荐） #

ggh4x是ggplot2的扩展包，专门解决这类自定义分面需求，其中facet_wrap2支持控制坐标轴显示位置：

library(ggplot2)
library(ggh4x)

n = 100

df = data.frame(x = c(rnorm(n/2), rnorm(n/2, mean = 100)),
                y = rnorm(n),
                group = rep(1:2, each = n/2),
                facet = rep(c("A", "C", "B", "D"), each = n/4))

ggplot(data = df, aes(x = x, y = y)) + 
  geom_point() + 
  facet_wrap2(~facet + group, scales = "free_x", axes = "x-bottom")

• scales = "free_x"保证不同列的X轴范围独立适配数据
• axes = "x-bottom"让每一列只有最底部的子图显示X轴刻度和标签，自动隐藏同列上方子图的X轴元素

方法二：用patchwork手动拼接 #

如果不想额外装包，可以用patchwork拆分数据后逐个绘图再拼接：

library(ggplot2)
library(patchwork)

n = 100

df = data.frame(x = c(rnorm(n/2), rnorm(n/2, mean = 100)),
                y = rnorm(n),
                group = rep(1:2, each = n/2),
                facet = rep(c("A", "C", "B", "D"), each = n/4))

# 绘制第一列上下子图，顶部子图去掉X轴元素
p1_top <- ggplot(df[df$group == 1 & df$facet == "A",], aes(x, y)) +
  geom_point() +
  facet_wrap(~facet) +
  theme(axis.text.x = element_blank(), 
        axis.title.x = element_blank(), 
        axis.ticks.x = element_blank())

p1_bottom <- ggplot(df[df$group == 1 & df$facet == "B",], aes(x, y)) +
  geom_point() +
  facet_wrap(~facet)

# 绘制第二列上下子图，顶部子图去掉X轴元素
p2_top <- ggplot(df[df$group == 2 & df$facet == "C",], aes(x, y)) +
  geom_point() +
  facet_wrap(~facet) +
  theme(axis.text.x = element_blank(), 
        axis.title.x = element_blank(), 
        axis.ticks.x = element_blank())

p2_bottom <- ggplot(df[df$group == 2 & df$facet == "D",], aes(x, y)) +
  geom_point() +
  facet_wrap(~facet)

# 拼接成2×2布局，统一图例（如果有）
(p1_top + p2_top) / (p1_bottom + p2_bottom) + plot_layout(guides = "collect")

这种方式需要手动拆分数据并设置每个子图的主题，适合需要更精细自定义布局的场景。

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