如何在ggplotly中点击图例隐藏元素时同步隐藏对应文本标签

ggplotly 转换ggplot对象时，会将不同geom图层识别为独立的trace，geom_text生成的文本图层默认没有和对应点图层的图例项做绑定，因此点击图例时仅会触发点图层的显隐，文本图层不受控制。

两步调整即可实现点和对应文本的同步显隐，不需要改动原有视觉样式：

• 第一步：给两个geom_text图层的aes中添加和对应点一致的color映射，用于关联分组，同时设置show.legend = FALSE避免文本图层额外生成冗余图例项，文本的实际显示颜色在aes外单独设置即可，不会受配色映射影响。
• 第二步：生成ggplotly对象后，遍历所有trace，给同属一个分组的trace绑定相同的legendgroup，开启图例点击的组联动效果。

完整可运行代码如下：

df <- data.frame (origin = c("A","B","C","D","E","F","G","H","I","J"),
              Percentage = c(23,16,32,71,3,60,15,21,44,60),
              rate = c(10,12,20,200,-25,12,13,90,-105,23),
              change = c(10,12,-5,12,6,8,0.5,-2,5,-2))

library(ggplot2)
library(plotly)

plt <- ggplot(df, aes(x = rate, y = factor(origin, rev(origin)))) +
  geom_hline(aes(yintercept = origin), color = 'gray') +
  geom_vline(xintercept = 0, linetype = 2, color = 'gray') +
  geom_point(aes(color = 'Rate'), size = 10) +
  # 绑定Rate分组，文本保持白色，不生成图例
  geom_text(aes(label = rate, color = 'Rate'), color = 'white', show.legend = FALSE) +
  geom_point(aes(x = change, color = 'Change'), size = 10) +
  # 绑定Change分组，不生成图例
  geom_text(aes(label = change, x = change, color = 'Change'), show.legend = FALSE) +
  theme_minimal(base_size = 16) +
  scale_x_continuous(labels = ~paste0(.x, '%'), name = NULL) +
  scale_color_manual(values = c('#aac7c4', '#5f9299')) +
  theme(panel.grid = element_blank(),
        axis.text.y = element_text(color = 'gray50')) +
  labs(color = NULL, y = NULL)

p <- ggplotly(plt)

# 遍历trace绑定同组图例联动
for (i in seq_along(p$x$data)) {
  current_trace <- p$x$data[[i]]
  # 跳过没有名称的辅助线trace
  if (is.null(current_trace$name)) next
  # 同组trace设置相同legendgroup
  current_trace$legendgroup <- current_trace$name
  # 仅点图层显示图例项，文本图层隐藏图例
  current_trace$showlegend <- !grepl("text", current_trace$mode)
  p$x$data[[i]] <- current_trace
}

p

效果说明 #

• 原有图形样式完全保留，Rate类别的文本仍为白色，不需要通过和背景同色的方案隐藏
• 点击图例的Rate/Change项时，对应的点和文本会同步显示或隐藏，交互逻辑一致
• 后续新增同分组图层时，只要在aes中绑定对应的color映射，上述遍历代码会自动完成分组关联，不需要额外调整逻辑

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