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)

有关更多示例，请参阅一书中的"控制工具提示"一章使用R、绘图和闪亮的交互式基于web的数据可视化。