解决R语言ggplot中y轴为字符型时geom_bracket报错问题

当使用ggpubr包的geom_bracket()函数为ggplot图添加分组比较括号时，若y轴为数值型可正常运行，但将y轴改为字符型（或转为因子型）时，会触发如下错误：

Warning message: Computation failed in stat_bracket() Caused by error in yrange[2] - yrange[1]: ! non-numeric argument to binary operator

问题复现代码 #

正常运行的数值型y轴示例

library(ggplot2)
library(ggpubr)
df <- data.frame(x = c("A", "B", "C", "D", "E"),
                 y = c(1, 2, 3, 4, 5),
                 value = c(1, 3, 5, 7, 9))

ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  geom_bracket(xmin = 1, xmax = 3, y.position = 4, 
               label = "label") 

报错的字符型y轴示例

df <- data.frame(x = c("A", "B", "C", "D", "E"),
                 y = c("F", "G", "H", "I", "J"),
                 value = c(1, 3, 5, 7, 9))

ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  geom_bracket(xmin = 1, xmax = 3, y.position = 4, 
               label = "label")

解决方案 #

报错核心原因是geom_bracket()内部依赖数值型y轴坐标进行计算，针对字符型/因子型y轴，可通过以下几种方式解决：

• 方法1：直接使用因子水平索引指定位置
  将y转为因子后，其内部存储的整数索引可直接用于y.position，同时保持y轴显示原字符标签，可添加小偏移量避免括号与数据点重叠：

df$y <- factor(df$y) # 转为因子固定顺序

ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  # 在第4个类别上方0.2单位处添加括号
  geom_bracket(xmin = 1, xmax = 3, y.position = 4.2, 
               label = "label")

• 方法2：提取ggplot内部坐标值
  先绘制基础图，通过ggplot_build()获取y轴的实际数值坐标，再精准设置括号位置：

p <- ggplot(df, aes(x = x, y = y)) + geom_point()
# 提取构建后的坐标参数
p_build <- ggplot_build(p)
# 获取第4个y类别的数值位置
y_pos <- p_build$layout$panel_params[[1]]$y$get_values()[4]

# 添加括号并设置偏移量
p + geom_bracket(xmin = 1, xmax = 3, y.position = y_pos + 0.2, 
                 label = "label")

• 方法3：手动映射y轴为数值并重置标签
  将字符型y转换为数值型，完成括号添加后再将y轴标签改回原字符：

df$y_num <- as.integer(factor(df$y)) # 转为数值型索引

ggplot(df, aes(x = x, y = y_num)) +
  geom_point() +
  geom_bracket(xmin = 1, xmax = 3, y.position = 4.2, 
               label = "label") +
  # 重置y轴标签为原字符
  scale_y_continuous(breaks = df$y_num, labels = df$y)

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