使用coord_flip绘制比值比图时，如何为Y轴0.5-0.8区间添加间隔

需求说明 #

• 绘制比值比（OR）图表时，因数据集内OR值集中在0.03-0.3区间，0.5-0.8到1之间的空白空间过大，需在0.5-0.8区间添加轴断裂优化美观度
• 尝试过ggbreak包但未成功，现有方案不适用coord_flip及参考竖线的场景

解决方案 #

ggbreak与coord_flip兼容，核心是理清翻转前后的轴对应关系，调整断裂区间与刻度设置即可。以下是修改后的可运行代码：

require(tidyverse)
require(ggplot2)
require(ggbreak)

labels2 <- c("Overall", "Catsfood", "dogsfood")
oddsratio2 <- c(0.05, 0.07, 0.03)
lower2 <- c(0.03, 0.04, 0.02)
upper2 <- c(0.15, 0.3, 0.1)

dfhelp <- data.frame(labels2, oddsratio2, lower2, upper2)

dfhelp %>% 
  ggplot(aes(x = labels2, y = oddsratio2, ymin = lower2, ymax = upper2)) +
  geom_pointrange() +
  geom_errorbar(width = 0.08) +
  geom_hline(yintercept = 1, lty = 2) +
  # 指定Y轴（翻转前）的断裂区间
  scale_y_break(c(0.5, 0.8), scales = 1) +
  # 调整刻度，确保断裂前后的关键值显示
  scale_y_continuous(expand = expansion(mult = c(0,0)),
                     breaks = c(0, 0.25, 0.5, 0.8, 1)) +
  theme_classic() +
  theme(aspect.ratio = 1/1.5,
        plot.title = element_text(hjust = 0.5, size = 12)) +
  coord_flip(ylim = c(0, 1.1))

关键说明 #

1. 轴断裂设置：使用scale_y_break(c(0.5, 0.8))指定翻转前Y轴的断裂区间，coord_flip会自动将其转换为水平轴的断裂
2. 刻度调整：手动设置breaks参数，避免断裂区间的刻度混乱，同时保留0、0.25、0.5、0.8、1这些关键参考值
3. 参考线兼容：原geom_hline(yintercept=1)在coord_flip后会自动转为垂直参考线，符合OR图以1为无关联基准的展示逻辑

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