ggplot中ggsignif相同显著性标注无法全部显示的解决方法

问题场景 #

使用ggsignif::geom_signif()绘制显著性差异注释时，若多个比较的注释文本完全相同（如两个n.s.），只会显示其中一个注释。需求是保留原注释文本（不能手动修改内容），同时让所有注释正常显示。

解决方案核心思路 #

给重复的注释文本添加不可见的唯一标识（Unicode零宽空格\u200B），使视觉上文本完全一致，但底层字符串唯一，避免ggsignif的去重逻辑隐藏重复注释。

步骤1：编写注释处理函数 #

创建一个自动处理重复注释的函数，给重复项添加不同数量的零宽空格：

make_unique_annotations <- function(anns) {
  ann_counts <- table(anns)
  lapply(unique(anns), function(x) {
    if (ann_counts[x] > 1) {
      paste0(x, sapply(1:ann_counts[x], function(i) paste(rep("\u200B", i), collapse = "")))
    } else {
      x
    }
  }) %>% unlist() %>% `[`(match(anns, unique(anns)))
}

步骤2：修改绘图代码 #

在geom_signif()的annotations参数中使用上述函数处理注释向量：

# 加载示例数据集
df <- structure(list(x = c("a1", "a2", "b3", "b4", "c5", "c6"), 
               treat = c(0, 1, 0, 1, 0, 1), 
               group = c("a", "a", "b", "b", "c", "c"), 
               fit = c(72, 80, 55, 59, 51, 65),
               lwr = c(67, 71, 51, 52, 45, 52),
               upr = c(76, 89, 58, 66, 57, 78)), 
               row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))

# 绘制图形
library(ggplot2)
library(ggsignif)
library(ggthemes)

ggplot(df, aes(x=x, y=fit, color=group)) +
  geom_point() +
  geom_errorbar(aes(ymin=lwr, ymax=upr), width=.09, position=position_dodge(.25)) +
  ggsignif::geom_signif(
    data = data.frame(x = c("x", "a2", "b3")),
    aes(
      y_position = c(95, 75, 80),
      xmin = c(1, 3, 5),
      xmax = c(2, 4, 6),
      # 用处理函数生成唯一注释
      annotations = make_unique_annotations(c("*", "n.s.", "n.s."))
    ),
    color = "black",
    tip_length=0.01, 
    manual = TRUE
  ) +
  ylim(0, 100) + 
  ggthemes::theme_base()

原理说明 #

零宽空格\u200B是不可见的Unicode字符，添加后不会改变注释的视觉显示，但会让每个重复的注释在底层字符串上具有唯一性，绕过ggsignif对重复注释的自动隐藏逻辑，确保所有注释都能正常渲染。

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