RMarkdown中使用ggbreak绘制带断裂轴的条形图时出现额外空图的问题排查

问题梳理 #

我完全理解你的困扰——在RMarkdown实时演示时，ggbreak导致的额外空图确实很影响展示效果。先明确下核心问题：

• 只要调用scale_y_break()就会多出一个空图，注释掉该命令后空图消失
• 最终编织（knit）成文档时空图会自动消失，但交互预览时一直存在
• 你已经尝试了保存为对象再打印、参考类似问题的解决方案，但都没效果

可复现代码 #

先贴出你的示例代码方便参考：

library(ggplot2)
library(ggbreak)

set.seed(1)
fruit <- sample(c("Apple","Banana","Pear","Plum","Dragonfruit"),
                100, replace = TRUE, prob = c(.5,.1,.1,.1,.1))
df <- as.data.frame(table(fruit))

ggplot(df,aes(x=fruit,y=Freq)) +
  geom_col() +
  scale_y_break(c(20,50)) +
  coord_flip()

问题根源 #

这个额外空图是ggbreak的底层实现机制导致的：为了生成带断裂的轴，ggbreak会在后台创建多个子图，然后将它们拼接成最终的断裂轴图。在RMarkdown的交互预览环境（比如RStudio的内嵌预览窗格）中，后台生成子图的过程会被“意外”触发渲染，从而多出一个空图；而最终编织文档时，这些临时子图会被过滤掉，所以看不到。

可行的解决办法 #

方法1：显式打印并压制无关警告

通过显式调用print()来确保只有最终拼接好的图被渲染，同时用suppressWarnings()过滤掉ggbreak底层生成子图时的无关警告：

library(ggplot2)
library(ggbreak)

set.seed(1)
fruit <- sample(c("Apple","Banana","Pear","Plum","Dragonfruit"),
                100, replace = TRUE, prob = c(.5,.1,.1,.1,.1))
df <- as.data.frame(table(fruit))

p <- ggplot(df,aes(x=fruit,y=Freq)) +
  geom_col() +
  scale_y_break(c(20,50)) +
  coord_flip()

# 显式打印绘图对象，同时压制底层无关警告
suppressWarnings(print(p))

方法2：临时关闭绘图设备

额外空图是临时绘图设备的残留输出，我们可以在绘图代码后调用dev.off()关闭临时设备，避免空图被渲染：

library(ggplot2)
library(ggbreak)

set.seed(1)
fruit <- sample(c("Apple","Banana","Pear","Plum","Dragonfruit"),
                100, replace = TRUE, prob = c(.5,.1,.1,.1,.1))
df <- as.data.frame(table(fruit))

ggplot(df,aes(x=fruit,y=Freq)) +
  geom_col() +
  scale_y_break(c(20,50)) +
  coord_flip()

dev.off() # 关闭临时绘图设备，清除残留的空图输出

小提示：dev.off()会关闭当前的绘图设备，如果同一块代码之后还有其他绘图需求，可能需要重新初始化，但在单块代码的实时演示场景下这个方法非常高效。

方法3：更新ggbreak到最新版本

这个问题很大概率是ggbreak早期版本的bug，作者可能已经在后续更新中修复了交互预览时的渲染问题。建议先尝试更新包：

# 安装CRAN稳定版
install.packages("ggbreak")
# 或者安装GitHub开发版（如果稳定版还没修复）
# remotes::install_github("YuLab-SMU/ggbreak")

关于你尝试的方法无效的说明 #

你之前尝试的“保存为对象再打印”或者“先建基础图再加scale_y_break”，本质还是触发了ggbreak的底层子图生成逻辑，没有阻止临时子图的渲染。上面的方法都是从“拦截临时绘图输出”的角度入手，和之前的思路完全不同，应该能解决你的问题。

备注：内容来源于stack exchange，提问作者LonLon