如何为包含两个（或更多）几何对象的 ggplotly() 对象自定义悬停文本？

Question

问题：

当我将鼠标悬停在该点上时，如下所示的悬停文本不会显示正确的“mean_mpg：”：

当我将鼠标悬停在条形图本身上时，它应该读取正确显示的内容：

我还没有深入研究 ggplotly() 的源代码，但我认为当 ggplotly 生成悬停文本时，它正在寻找美学“x”和“y”，并且它找到了两个几何中指定的“x”和“y”，但由于某种原因，它错误地用“mpg”值更新了“mean_mpg：”值。

我希望能够为我的代表中的每个几何对象单独自定义悬停文本（例如 geom_col() 和 geom_point()），以便我可以显示正确的值。

非常感谢仍然可以使用ggplotly()的解决方案，因为我拥有的真实图表要复杂得多。不过，plot_ly() 解决方案也受到赞赏，因为这可能会让我更深入地了解根本问题。

Reprex：

library(ggplot2)
library(dplyr)
library(plotly)

grouped_data <- mtcars %>%
  group_by(gear) %>%
  mutate(mean_mpg = mean(mpg)) %>%
  ungroup()

plot <- ggplot(grouped_data %>% 
         distinct(gear, mean_mpg, .keep_all = TRUE), 
       aes(x = gear,
           y = mean_mpg)) + 
  geom_col() +
  geom_point(data = grouped_data, aes(x = gear, y = mpg))

ggplotly(plot)

Answer 1

我不知道为什么，但是：

geom_point(data = grouped_data, aes(x = gear, y = mpg,label=mean_mpg))

给出了所需的结果，但抛出了一条警告消息。