R语言：使用ggbreak后柱状图悬浮，如何使其贴合X轴？

问题场景 #

使用ggbreak包的scale_y_break(c(6, 500))后，柱状图柱子出现悬浮，无法贴合X轴。尝试scale_y_continuous(trans = 'log', breaks = c(0, 2, 4, 6, 500, 1000), expand = c(0, 0))无效，但单独使用scale_y_continuous(expand=c(0,0))时柱子能正常贴合X轴，需要保留Y轴对数刻度的同时解决该问题。

核心原因 #

scale_y_break()会覆盖scale_y_continuous()中的expand参数设置；另外对数刻度下0是无意义值（log(0)不存在），这会导致绘图逻辑异常，柱子无法正常锚定到X轴。

解决方案 #

1. 把数据中Y值为0的部分替换成极小值（比如1e-6），既满足对数刻度的计算要求，视觉上也和贴X轴的效果一致。
2. 在scale_y_break()中直接设置expand = c(0, 0)，替代scale_y_continuous()里的expand设置。
3. 调整Y轴刻度，去掉无效的0，换成对应的极小值并将刻度标签显示为0，保证解读直观。

修改后的完整代码 #

library(tidyverse)
library(ggbreak)

# 示例数据
myData <- structure(list(...1 = c("Cell Line ID", "9-3", "21252", "21253", 
"21256", "21024", "21039", "21077", "A9156", "A9161"), ...2 = c("Genotype", 
"WT", "3KO", "3KO", "3KO", "3KO.7TG", "3KO.7TG", "3KO.7TG", "3KO.7TG.RI", 
"3KO.7TG.RI"), `C3b MFI x 10^3` = c("Human Serum", "825", "3.9140000000000001", 
"5.61", "4.9619999999999997", "0.85", "1.4259999999999999", "0.68100000000000005", 
"0.84", "0.86299999999999999"), ...4 = c("Serum+EDTA", "0.23599999999999999", 
"0.224", "0.20300000000000001", "0.20100000000000001", "0.247", 
"0.252", "0.22600000000000001", "0.246", "0.34200000000000003"
)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"))

myData %>% 
  select(c(2:4)) %>%
  slice(2:10) %>%
  rename(genotype = ...2) %>%
  mutate(across(c(2:3), as.numeric)) %>%
  mutate(genotype = factor(genotype, levels = c("WT", "3KO", "3KO.7TG", "HC"))) %>%
  # 将0替换为极小值适配对数刻度
  mutate(`C3b MFI x 10^3` = ifelse(genotype == "HC", 1e-6, `C3b MFI x 10^3`)) %>%
  ggplot(aes(x = genotype, y = `C3b MFI x 10^3`, color = genotype, fill = genotype, width = 0.4)) + 
  stat_summary(fun.data = mean_se, geom = "bar", lwd = 1, position = position_identity()) + 
  geom_errorbar(
    aes(
      x = "3KO",
      ymin = 3.914,  
      ymax = 5.61), 
    width = 0.2,
    color = "#e0a477",
    position = position_identity()
  ) +
  geom_point(position = position_dodge(width = 0.6), size = 1.5) +  
  scale_shape_manual(values = c("3KO.7TG" = NA)) +
  # 调整对数刻度的breaks和标签，把极小值显示为0
  scale_y_continuous(trans = 'log', breaks = c(1e-6, 1, 2, 4, 6, 500, 1000), 
                     labels = c("0", "1", "2", "4", "6", "500", "1000")) +
  scale_fill_manual(values = alpha(c("#fcca92","#d0e5f6","#dcdcdc"), 0.3)) +
  theme_minimal() +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_blank(),
    plot.background = element_blank(),
    axis.line = element_line(color = "black"),
    axis.ticks = element_line(color = "black"),
    axis.text = element_text(color = "black")
  ) +
  labs(x = NULL) +
  scale_x_discrete(labels = c("WT", "3KO", "3KO.7TG±RI", "HC")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  theme(legend.position = "none") +
  scale_color_manual(values = c("WT" = "black", "3KO" = "#e88840", "3KO.7TG" = "#425887")) +
  # 在scale_y_break中设置expand参数，让柱子贴合X轴
  scale_y_break(c(6, 500), expand = c(0, 0)) 

效果说明 #

• 替换0为1e-6：既解决了对数刻度的计算问题，视觉上柱子依然紧贴X轴，且刻度标签显示为0不影响数据解读。
• scale_y_break(expand = c(0,0))：直接在断裂刻度设置中控制轴的扩展，确保柱子底部对齐X轴。
• 刻度标签调整：把1e-6对应的刻度显示为0，保持图表解读的直观性。

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