在ggplot2中只显示一个层的工具提示，并以巧妙的方式显示

Question

是否可以只显示一个图层的工具提示，即使多个层共享一个可尊重的。在本例中，我只想在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)

有关更多示例，请参阅“交互式网络数据可视化与R，巧妙，闪亮”一书的章节控制工具提示。