如何修复ggplotly双轴柱状图图例、悬停提示及文本位置异常问题

问题对应修复逻辑 #

• 图例异常出现"1"标识
  问题根源是geom_line内将group=1写入了aes()映射域，ggplotly会将aes内的所有映射识别为独立图例维度；同时geom_text/geom_label默认继承全局美学映射，会额外生成冗余图例项。
  修复方式：将group参数移出aes()，给所有非核心几何图层添加show.legend = FALSE参数，阻止冗余图例生成。
• 鼠标悬停出现重复数值
  问题根源是原代码对cost序列同时叠加了geom_line、geom_text、geom_label三层可触发悬停的几何对象，且全局映射的label字段会被所有图层读取，触发多层重复提示。
  修复方式：删除重复的文本标注图层（原代码同时调用geom_text和geom_label绘制同一组标签，属于冗余代码），给仅用于展示标注的文本图层添加hoverinfo = "skip"，屏蔽该图层的悬停响应。
• geom_text位置调整参数不生效
  问题根源是plotly对ggplot中hjust/vjust参数的解析兼容性较差，无法直接映射为plotly的标签位置规则。
  修复方式：改用position_nudge()函数设置标签的横向、纵向偏移量，替代原生hjust/vjust参数实现位置调整。

修正后可直接运行的代码 #

library(tidyverse)
library(plotly)

df <- data.frame (model  = c("A", "B", "C","D","E","F"),
                  share = c(12,20,15,9,60,20),
                  sale = c(16,25,18,14,67,28),
                  cost = c(14,19,28,24,57,28))

# 按cost降序设置因子水平
df$model <- factor(df$model, levels = arrange(df, desc(cost))$model)

df_long <- df %>% 
  pivot_longer(cols = -model) 

plt <- ggplot(df_long, aes(x = model, y= value))+
  # 柱形图层：绘制share、sale
  geom_col(data = filter(df_long, name != "cost"), 
           aes(fill=name), 
           position = position_dodge(width = 0.9))+
  scale_fill_manual(values = c("blue", "grey"))+
  # 折线图层：绘制cost，group移出aes避免生成多余图例
  geom_line(data = filter(df_long, name == "cost"), 
            aes(color = name), 
            group = "cost", 
            size = 1)+
  scale_color_manual(values = "red")+
  # 标签图层：仅保留一个标注层，设置偏移量，屏蔽悬停和图例
  geom_label(data = filter(df_long, name == "cost"), 
             aes(label = value),
             size = 3,
             position = position_nudge(x = 0, y = 2), # 对应原vjust=-0.5的上移效果
             show.legend = FALSE,
             hoverinfo = "skip")+
  scale_y_continuous(
    name = "Sale and Share",
    sec.axis = sec_axis(~., name ="Cost")
  )+
  theme_minimal()+
  theme(legend.title=element_blank())

ggplotly(plt)

说明：如果需要保留geom_text样式，把上述代码中geom_label替换为geom_text即可，position_nudge的偏移数值可以根据展示需求调整y值大小，数值越大标签距离折线/柱形越远。

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