使用ggbreak生成的图表背景无法设为透明的解决方法咨询

问题：使用ggbreak的scale_x_break()生成带断轴的图表时，即使在theme()中设置了panel.background和plot.background为透明，导出的图片背景仍不透明；但未使用断轴的普通ggplot图表导出后背景正常。

解决方案 #

ggbreak通过将图表拆分为多个子面板拼接实现断轴效果，仅设置主图的theme无法覆盖所有子面板的背景配置。需要额外使用theme_break()函数统一设置所有子面板的背景样式，确保所有区域都应用透明背景。

修改后的代码示例 #

library(ggplot2)
library(ggbreak)

set.seed(2022-08-23)
d <- data.frame(x = 1:20,
   y = c(rnorm(5) + 4, rnorm(5) + 20, rnorm(5) + 5, rnorm(5) + 22))
 
plt1 <- ggplot(d, aes(y, x)) + geom_col(orientation="y") + 
    theme(panel.grid.major = element_blank(), 
          panel.grid.minor = element_blank(), 
          panel.background = element_rect(fill = "transparent", colour = NA), 
          plot.background = element_rect(fill = "transparent",  colour = NA)
  )

ggsave(plt1, filename = "test1.png", device = 'png', bg = 'transparent')

plt2 <- ggplot(d, aes(y, x)) + geom_col(orientation="y") + 
    theme(panel.grid.major = element_blank(), 
          panel.grid.minor = element_blank(), 
          panel.background = element_rect(fill = "transparent", colour = NA), 
          plot.background = element_rect(fill = "transparent",  colour = NA)
  ) + scale_x_break(c(7, 17), scales = 1.5) +
  # 新增：设置所有断轴子面板的背景为透明
  theme_break(panel.background = element_rect(fill = "transparent", colour = NA))

ggsave(plt2, filename = "test2.png", device = 'png', bg = 'transparent')

说明 #

• theme_break()是ggbreak包提供的专用主题函数，用于配置断轴生成的子面板样式，确保所有拆分出的小面板都应用透明背景设置。
• 保持ggsave()中的bg = 'transparent'参数，确保导出时整个图片的画布背景为透明。

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