ggplot2中保留轴标签及显著性括号，缩短y轴线长度

核心思路 #

通过关闭绘图裁剪让显著性括号可超出坐标轴范围显示，同时手动控制y轴线的绘制长度，保留所需的全部轴标签。

步骤1：准备基础绘图与显著性标记 #

先构建小提琴图并添加ggsignif的显著性括号（示例用模拟数据）：

library(ggplot2)
library(ggsignif)

# 模拟测试数据
set.seed(123)
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 50),
  value = c(rnorm(50, 500, 150), rnorm(50, 700, 150), rnorm(50, 900, 150))
)

# 基础绘图+显著性括号
p <- ggplot(df, aes(x = group, y = value)) +
  geom_violin(fill = "lightblue") +
  geom_jitter(width = 0.2, size = 1, alpha = 0.5) +
  # 添加三组对比的显著性括号，位置设为1000以上
  geom_signif(
    comparisons = list(c("A", "B"), c("B", "C"), c("A", "C")),
    y_position = c(1050, 1100, 1150),
    tip_length = 0.01,
    textsize = 3
  )

步骤2：设置y轴刻度与关闭绘图裁剪 #

保留1000以上的轴标签，同时关闭裁剪允许括号超出坐标轴显示：

p <- p +
  scale_y_continuous(
    breaks = c(0, 250, 500, 750, 1000, 1200), # 包含1000以上的刻度标签
    limits = c(0, 1200)
  ) +
  coord_cartesian(clip = "off") # 关闭绘图裁剪，让括号能显示在坐标轴范围外

步骤3：自定义y轴线长度 #

隐藏默认y轴线，手动绘制仅到1000位置的轴线：

p <- p +
  theme(
    axis.line.y = element_blank(), # 隐藏默认的完整y轴线
    plot.margin = margin(10, 10, 10, 30) # 调整左侧边距，避免手动绘制的线被截断
  ) +
  # 手动绘制从0到1000的y轴线，x位置根据分组偏移量调整
  geom_segment(
    aes(x = -0.1, xend = -0.1, y = 0, yend = 1000),
    color = "black", size = 0.5
  )

最终效果 #

• 显著性括号完整显示在1000以上的区域
• y轴线仅延伸到1000位置，不会向上延长
• 1000以上的轴标签（如1200）正常保留

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