R中ggplot2设置y轴断点（scale break）异常问题求助

问题根源 #

你误用了scale_y_break()的参数：breaks参数是用来定义断点的位置，而非Y轴刻度的起始值。传入c(0,28)会让ggbreak错误地创建两个断点，导致图形被分割重复，同时Y轴刻度逻辑混乱。

修正方案 #

通过正确设置断点位置、Y轴范围、刻度标签及缩放比例，实现“Y轴从0起始、28处添加断点、主要展示28以上数据”的需求：

library(ggplot2)
library(ggbreak)

plotdata <- data.frame(
  Group = c("Intervention", "Intervention", "Intervention", "Control", "Control", "Control"),
  Mean = c(30, 35, 43, 31, 33, 34),
  Std_Error = c(0.66779, 0.91275, 1.11335, 0.73653, 0.82869, 0.91173),
  Timepoint = c("Baseline", "6 Weeks", "12 Weeks", "Baseline", "6 Weeks", "12 Weeks")
)

plotdata$Timepoint <- factor(plotdata$Timepoint, levels = c("Baseline", "6 Weeks", "12 Weeks"))

plot <- ggplot(plotdata, aes(x = Timepoint, y = Mean, color = Group, group = Group)) +
  geom_errorbar(aes(ymin = Mean - Std_Error, ymax = Mean + Std_Error), width = 0.1, size = 0.8,  color = "grey60") + 
  geom_line(linewidth = 1.8) +  
  geom_point(size = 2.5) +  
  labs(x = "Timepoint", y = "Outcome", title = "Trajectory") +
  scale_color_manual(values = c("Intervention" = "#D81A61", "Control" = "#1E88E5")) + 
  theme_bw() +  
  theme(
    axis.title.x = element_text(margin = margin(t = 15), face = "italic"),  
    axis.title.y = element_text(margin = margin(r = 15), face = "italic"), 
    axis.text.x = element_text(margin = margin(t = 5)),  
    panel.grid.major.x = element_blank(), 
    panel.grid.minor.x = element_blank(), 
    panel.border = element_blank(), 
    plot.title = element_text(size = 14, face = "bold")
  )

# 修正后的断点设置
plot + 
  scale_y_break(
    breaks = 28,          # 指定断点位置为28
    limits = c(0, 45),    # Y轴范围包含0及数据最大值以上区间
    labels = c(0, 30, 35, 40, 45),  # 手动设置显示的刻度标签
    scales = c(0.2, 1)    # 调整两段Y轴缩放比例：0-28段压缩显示，28-45段正常显示
  )

参数说明 #

• breaks = 28：仅在28位置创建一个断点，避免多断点导致的图形重复
• limits = c(0,45)：确保Y轴包含起始刻度0，同时覆盖你的数据范围（30-43）
• labels：手动指定刻度标签，避免自动生成的刻度混乱
• scales：通过压缩0-28段的显示比例，让28以上的核心数据区域占据更多绘图空间，满足“从28开始展示”的需求

修正后图形会正常显示：Y轴起始刻度为0，28处有断点，核心数据区域展示清晰，无重复图形和刻度间距异常问题。

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