R语言ggplotly添加垂直线后图例异常及y轴排序问题

图例点击异常修复 #

问题原因 #

新增geom_vline()绘制黑色参考线时，会在plotly内置图层列表plt$x$data中新增一个元素，导致后续所有点、文本图层的索引整体后移1位。原代码中硬编码的图层索引（3-8）完全错位，图例分组绑定错误，最终出现点击隐藏某一变量时，非目标图层元素被错误关联隐藏的问题。

修复逻辑 #

• 所有辅助参考线（两条geom_vline、灰色背景段）统一关闭图例显示，避免占用图例条目、干扰交互
• 重新匹配数据图层的索引，将同变量对应的点、文本图层绑定到同一个图例组，保证点击时同步显隐

Y轴分类排序实现 #

实现逻辑 #

ggplot水平点图的Y轴位置和因子水平直接对应：因子水平的第一个值显示在Y轴最底端，最后一个值显示在Y轴最顶端，按需求构造因子水平即可：

• 固定A为因子水平第一个值，强制显示在最底端
• 其余类别按照Percentage字段升序排列在A之后，Percentage越高的类别越靠近因子水平末尾，对应Y轴位置越靠上，自然实现从上到下按Percentage降序排列的效果

完整可运行修复代码 #

library(ggplot2)
library(dplyr)

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))

# 提前处理Y轴因子排序
df <- df %>%
  mutate(
    origin = factor(
      origin,
      # 固定A在最底端（levels第一位），其余按Percentage升序排列，值越高越靠levels末尾即Y轴越靠上
      levels = c("A", setdiff(origin[order(Percentage)], "A"))
    )
  )

plt <- ggplot(df, aes(x = rate, y = origin)) +
  geom_segment(aes(x = (min(rate,change)-4), xend = (max(rate,change)+4),
                   y = origin, yend = origin), color = 'gray', show.legend = F) +
  geom_vline(xintercept = 0, linetype = 2, color = 'gray', show.legend = F) +
  geom_vline(xintercept =17, linetype = 1, color = 'black', show.legend = F) +
  geom_point(aes(fill = 'rate'), shape = 21, size = 10, color = NA) +
  geom_text(aes(label = rate, color = 'rate')) +
  geom_point(aes(x = change, fill = 'change'), 
             color = NA, shape = 21, size = 10) +
  geom_text(aes(label = change, x = change, color = "change")) +
  geom_point(aes(x = (max(rate,change)+5.5), fill = "Percentage"), color = "gray",
             size = 10, shape = 21) +
  geom_text(aes(x = (max(rate,change)+5.5), label = paste0(Percentage, "%")),size=3)+
  theme_minimal(base_size = 16) +
  scale_x_continuous(labels = ~paste0(.x, '%'), name = NULL) +
  scale_fill_manual(values = c('#aac7c4', '#5f9299','black')) +
  scale_color_manual(values = c("black", "white")) +
  theme(panel.grid = element_blank(),
        axis.text.y = element_text(color = 'gray50')) +
  labs(color = NULL, y = NULL, fill = NULL)+
  theme(axis.title = element_text(size=15), legend.title = element_text(size=2)) 

plt <- ggplotly(plt)

# 彻底关闭辅助图层的图例交互
plt$x$data[[1]]$showlegend <- FALSE
plt$x$data[[2]]$showlegend <- FALSE
plt$x$data[[3]]$showlegend <- FALSE

# 绑定同组点和文本到同一图例组
plt$x$data[[4]]$name <- plt$x$data[[4]]$legendgroup <-
  plt$x$data[[5]]$name <- plt$x$data[[5]]$legendgroup <- "rate"
plt$x$data[[6]]$name <- plt$x$data[[6]]$legendgroup <-
  plt$x$data[[7]]$name <- plt$x$data[[7]]$legendgroup <- "change"
plt$x$data[[8]]$name <- plt$x$data[[8]]$legendgroup <-
  plt$x$data[[9]]$name <- plt$x$data[[9]]$legendgroup <- "Percentage"

plt

后续新增辅助线/背景类图层时，只需给对应图层设置show.legend = F，并在plotly阶段将对应索引的showlegend设为FALSE即可，不需要调整已有数据图层的图例绑定逻辑。

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