如何避免facet_wrap结合coord_flip时重复显示轴标签？

方法一：使用facet_grid替代facet_wrap #

facet_grid本身支持共享侧边轴标签，配合coord_flip可以轻松实现仅左侧显示类别标签的需求，无需额外扩展包：

library(ggplot2)
library(dplyr)

# 演示数据
demo_data = data.frame(locus = c(paste0("locus_", rep(1, 5)),
                                 paste0("locus_", rep(2, 5)),
                                 paste0("locus_", rep(3, 5)),
                                 paste0("locus_", rep(4, 5)),
                                 paste0("locus_", rep(5, 5))),
                       sample = rep(paste0("sample_", seq(1:5))),
                       value = sample(100, 25)) %>%
  mutate(ci_upper = value + 10,
         ci_lower = value - 10)

# 修改后的绘图代码
ggplot(demo_data, aes(x = sample, y = value)) +
  geom_point() +
  geom_errorbar(aes(ymin = ci_lower, ymax = ci_upper)) +
  facet_grid(locus ~ ., scales = "free", switch = "y") +
  coord_flip() +
  theme(strip.placement = "outside")

关键参数说明： #

• facet_grid(locus ~ ., scales = "free")：按locus纵向拆分分面，默认仅在最左侧显示y轴（翻转后对应原x轴的sample）标签
• switch = "y"：将分面标题（locus）移至y轴一侧，避免和轴标签重叠
• strip.placement = "outside"：调整分面标题的位置，使其与轴标签布局更合理

方法二：使用ggh4x包的facet_wrap2（保留facet_wrap风格） #

如果偏好facet_wrap的分面排列方式，可以借助ggh4x扩展包的facet_wrap2函数，它支持更灵活的轴标签和分面控制：

# 先安装并加载包
install.packages("ggh4x")
library(ggh4x)

ggplot(demo_data, aes(x = sample, y = value)) +
  geom_point() +
  geom_errorbar(aes(ymin = ci_lower, ymax = ci_upper)) +
  facet_wrap2(~ locus, scales = "free", strip.position = "right") +
  coord_flip() +
  theme(axis.text.y = element_text(hjust = 1))

关键参数说明： #

• facet_wrap2：是facet_wrap的增强版，支持控制轴标签的显示逻辑
• strip.position = "right"：将分面标题移至右侧，确保左侧仅显示一次sample类别标签
• axis.text.y = element_text(hjust = 1)：调整y轴标签的对齐方式，避免显示不全

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