禁用特定绘图层（geom）的悬停信息

Question

library(ggplot2)
library(plotly)

gg <- ggplot(mtcars, aes(factor(vs), drat)) +
    geom_violin() +
    geom_jitter()
ggplotly(gg)

在示例代码中，我们用于ggplot绘制小提琴和抖动层。Plotly显示两层的信息（即，当悬停在抖动点上时，它将显示特定的点信息，当悬停在小提琴图上时也会发生相同的情况）。但是，我只想plotly显示信息geom_jitter。

问题：如何禁用特定层的悬停信息？

Answer 1

您可以设置hoverinfo到"none"为geom：

gg <- ggplot(mtcars, aes(factor(vs), drat)) +
             geom_violin() +
             geom_jitter()
ggply <- ggplotly(gg)

ggply$x$data[[1]]$hoverinfo <- "none"

ggply