在ggplot2中仅显示一层的工具提示

如何解决在ggplot2中仅显示一层的工具提示

是否可以在ggplot +中仅显示一层的工具提示，即使多层共享一个目标即可。在此示例中，我只想在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")

解决方法

您可以使用style功能将工具提示隐藏在黑点上：

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

有关更多示例，请参见《 具有R，绘图和光泽的交互式Web数据可视化》一书的Controlling Tooltips。