r - 在 ggplot2 和 plotly 中仅显示一层的工具提示

Question

是否可以在 ggplot + plotly 中仅显示一层的工具提示，即使多层共享一个美学。在此示例中，我只想在 geom_smooth 层的蓝线上显示蓝色工具提示，但不显示每个点的黑色工具提示。

library(tidyverse)
library(plotly)
library(palmerpenguins)

gg <- ggplot(penguins, aes(x=flipper_length_mm, y=body_mass_g)) + 
  geom_point() + 
  geom_smooth(se = FALSE)

ggplotly(gg, tooltip=c("y")) %>%
  layout(hovermode = "x unified")

Answer 1

您可以使用 style 函数抑制黑点上的工具提示:

ggplotly(gg, tooltip=c("y")) %>%
  layout(hovermode = "x unified") %>%
  style(hoverinfo = "skip", traces = 1)

有关更多示例，请参阅章节 Controlling Tooltips 使用 R 的交互式基于网络的数据可视化，plotly 和 shiny。