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

Question

我正在绘制一个条形图 geom，上面有一个点 geom，如下所示：

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 上时，都会弹出工具提示。如何使工具提示仅在条形图上重叠时弹出？

Answer 1

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

对我来说，关键是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 的文档在结构和全面性上都非常糟糕。找出哪些痕迹是一些尝试和错误，但乐趣就在于此。