R ggplot2技术问询：如何移除分面条带文本处的面板间距

我来帮你搞定这个分面条带文本处的间距问题！你已经用了panel.spacing = unit(0, "lines")去掉了面板之间的间距，但分面的条带（strip）本身还有默认的边距，导致条带文本处看起来还有空隙。下面是修改后的完整代码，以及对应的关键修改说明：

完整修改代码 #

# 读取数据
tmp <- read.table(text = "label CNV_x CNV_Type
17p -1 Loss
9p -1 Loss
16q 1 Gain
10p 1 Gain
8q 1 Gain
13q 1 Gain", header = T)
tmp$CNV_Type <- relevel(tmp$CNV_Type, ref = 'Loss')

# 绘图（修改版）
ggplot(tmp, aes(x = label, y = CNV_x)) + 
  geom_bar(stat = 'identity') + 
  theme_bw() + 
  geom_hline(yintercept = 0) + 
  coord_flip() + 
  facet_wrap(~CNV_Type, strip.position = "bottom", scales = "free_x") + 
  theme(
    # 移除面板之间的间距
    panel.spacing = unit(0, "lines"),
    # 去掉条带背景的上下边距，让条带和面板紧贴
    strip.background = element_rect(margin = margin(t = 0, b = 0)),
    # 调整条带文本的边距，保证可读性，避免太挤
    strip.text = element_text(margin = margin(t = 3, b = 3)),
    # 将条带放在面板边框外侧，彻底消除条带与面板的间距
    strip.placement = "outside",
    # 确保面板边框完整，避免相邻面板边框重叠
    panel.border = element_rect(color = "black", fill = NA)
  )

关键修改说明 #

• strip.background = element_rect(margin = margin(t = 0, b = 0))：移除条带背景的上下边距，让条带区域和下方的面板完全贴合，消除条带与面板之间的空隙。
• strip.placement = "outside"：把条带放在面板边框的外侧（默认是内侧），从根本上避免条带与面板之间的默认间距。
• strip.text = element_text(margin = margin(t = 3, b = 3))：给条带文本添加少量上下边距，避免文本和边框过于贴近，保证可读性。
• panel.border = element_rect(color = "black", fill = NA)：当面板间距设为0时，相邻面板的边框可能会重叠，这个设置确保每个面板的边框清晰可见，不会出现边框缺失的情况。

这样修改后，分面条带文本处的多余间距就会被完全移除，完美实现你想要的双X轴（分组X轴）条形图效果。

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