如何自动为ggplot对象添加大括号并转换为plotly（避免重复代码）

方案1：用geom_brace配合数据批量生成图层 #

不用手动重复编写geom_brace代码，把你的my_bracket_data整理成包含括号位置、标签、方向等信息的结构化数据框，再用purrr工具包批量生成图层：

library(ggplot2)
library(ggbrace)
library(purrr)
library(tibble)

# 示例结构化括号数据（替换成你的my_bracket_data）
my_bracket_data <- tibble(
  xmin = c(1, 3),    # 括号左端x值
  xmax = c(2, 4),    # 括号右端x值
  y = c(35, 25),     # 括号所在y高度
  label = c("Group 1", "Group 2"), # 括号标签
  direction = c("down", "up")      # 括号朝向
)

# 基础ggplot图形
base_plot <- ggplot(mtcars, aes(x = gear, y = mpg)) +
  geom_point(size = 2)

# 批量添加geom_brace图层
final_ggplot <- base_plot +
  pmap(my_bracket_data, function(xmin, xmax, y, label, direction) {
    geom_brace(
      aes(x = xmin, xend = xmax, y = y, yend = y),
      direction = direction,
      label = label,
      color = "black",
      size = 1
    )
  })

# 转成plotly对象（geom_brace多数情况下能被ggplotly识别）
final_plotly <- ggplotly(final_ggplot)

这个方案的核心是利用pmap遍历你的括号数据，自动生成每个括号对应的图层，避免重复代码。

方案2：提取geom_bracket数据，转成plotly原生形状 #

如果必须用geom_bracket实现自动化，可先在ggplot中生成括号，再提取图层数据转换成plotly支持的shape和annotation：

library(ggplot2)
library(ggsignif) # geom_bracket来自该包
library(plotly)
library(tibble)

# 示例括号数据
my_bracket_data <- tibble(
  xmin = c(1, 3),
  xmax = c(2, 4),
  y.position = c(35, 25),
  label = c("Significant", "Not Sig")
)

# 带geom_bracket的ggplot
gg_with_bracket <- ggplot(mtcars, aes(x = gear, y = mpg)) +
  geom_point(size = 2) +
  geom_bracket(data = my_bracket_data, aes(xmin = xmin, xmax = xmax, y.position = y.position, label = label))

# 提取ggplot中的括号图层数据
gb <- ggplot_build(gg_with_bracket)
bracket_data <- gb$data[[2]] # 假设括号是第二个图层，可根据实际调整索引

# 生成plotly的shape列表（对应括号路径）
bracket_shapes <- lapply(unique(bracket_data$group), function(g) {
  group_rows <- bracket_data[bracket_data$group == g, ]
  path_str <- paste0("M", paste(group_rows$x, group_rows$y, collapse = " L "), " Z")
  list(
    type = "path",
    path = path_str,
    line = list(color = "black", width = 1),
    fillcolor = "transparent"
  )
})

# 生成括号标签的annotation列表
bracket_annotations <- lapply(unique(bracket_data$group), function(g) {
  group_rows <- bracket_data[bracket_data$group == g, ]
  target_label <- unique(group_rows$label)
  mid_x <- mean(c(group_rows$x[1], group_rows$x[nrow(group_rows)]))
  label_y <- ifelse(max(group_rows$y) > min(group_rows$y), max(group_rows$y)+1, min(group_rows$y)-1)
  list(
    x = mid_x,
    y = label_y,
    text = target_label,
    showarrow = FALSE,
    xanchor = "center",
    font = list(size = 10)
  )
})

# 转换为plotly并添加形状和标签
final_plotly <- ggplotly(gg_with_bracket) %>%
  layout(shapes = bracket_shapes) %>%
  add_annotations(bracket_annotations)

这个方案相当于把ggplot中geom_bracket生成的矢量图形，手动映射到plotly的原生元素，解决plotly不支持geom_bracket的问题。

方案3：直接用plotly原生API绘制括号 #

完全绕开ggplot的geom，直接基于my_bracket_data用plotly的add_shape和add_annotations批量生成括号：

library(plotly)
library(tibble)

# 示例括号数据
my_bracket_data <- tibble(
  x_start = c(1, 3),
  x_end = c(2, 4),
  y_base = c(35, 25),
  label = c("Group A", "Group B"),
  direction = c("down", "up") # down=括号向下开口，up=向上开口
)

# 基础plotly散点图
base_plotly <- plot_ly(mtcars, x = ~gear, y = ~mpg, type = "scatter", mode = "markers", marker = list(size = 2))

# 批量添加括号和标签
for (i in 1:nrow(my_bracket_data)) {
  row <- my_bracket_data[i, ]
  x1 <- row$x_start
  x2 <- row$x_end
  y <- row$y_base
  label <- row$label
  dir <- row$direction
  
  # 定义括号路径
  if (dir == "down") {
    bracket_path <- paste0(
      "M ", x1, " ", y,
      " L ", x1, " ", y - 1,
      " L ", x2, " ", y - 1,
      " L ", x2, " ", y
    )
    label_y <- y - 1.5
  } else {
    bracket_path <- paste0(
      "M ", x1, " ", y,
      " L ", x1, " ", y + 1,
      " L ", x2, " ", y + 1,
      " L ", x2, " ", y
    )
    label_y <- y + 1.5
  }
  
  # 添加括号形状
  base_plotly <- base_plotly %>%
    add_shape(
      type = "path",
      path = bracket_path,
      line = list(color = "black", width = 1)
    )
  
  # 添加标签
  base_plotly <- base_plotly %>%
    add_annotations(
      x = mean(c(x1, x2)),
      y = label_y,
      text = label,
      showarrow = FALSE,
      xanchor = "center",
      font = list(size = 10)
    )
}

final_plotly <- base_plotly

这个方案完全基于plotly原生功能，不需要依赖ggplot的geom，适合需要纯plotly输出的场景。

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