ggplotly - 仅返回某些几何对象上的工具提示悬停文本

我正在绘制一个条形图几何图形，其上有一个点几何图形，如下所示：

plot_1 <- ggplot(results, aes(x=date, y = data, question_text=question_text,
                    val1 = val1)) + 
  geom_bar(stat = "identity", position = "dodge", aes(fill = Party)) +
  geom_point(data=results, aes(x=date, y=math*.01), colour="blue", group = 1) 

然后我调用 ggplotly 命令并像这样覆盖工具提示

ggplotly(plot_1, tooltip=c("question_text", "val1"))

然而，这使得每当我将鼠标放在 geom_point 或 geom_bar 上时，就会弹出工具提示。如何使工具提示仅在条形图重叠时弹出？

好吧，我希望您同时解决这个问题，但我遇到了同样的问题，并认为我会帮助其他最终来到这里的人。

对我来说关键是style()功能。对于上下文，这是我试图制作的情节的简单版本：

p = ggplot(df, aes(x = category, y = total, group = group_level))+
    geom_bar(stat = "identity", position = position_dodge(width = .75))+ # Should probably just be using geom_col here
    geom_text(label = state)

如果不包括下面的样式函数，我会获得栏和文本标签的悬停信息，这看起来有点傻。以下允许您选择哪些跟踪具有悬停信息（或根据文档的任何“视觉属性”）

ggplotly(p, tooltip = c("text")) %>%
    style(hoverinfo = "none", traces = c(3, 4))

现在，Plotly 的文档无论是结​​构还是全面性都始终很糟糕。找出哪些痕迹是哪些痕迹需要一些尝试和错误，但这就是乐趣所在。