r - 禁用 plotly 的特定层(geom)的悬停信息

Question

library(ggplot2)
library(plotly)

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

在示例代码中，我们使用 ggplot绘制 fiddle 和抖动层。 Plotly显示两个层的信息(即当悬停在抖动点上时，它将显示特定的点信息，悬停在 fiddle 图上时会发生同样的事情)。但是，我想要 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