ggplotly：将鼠标悬停在线条的任何位置时显示工具提示

Question

鉴于：

library(plotly)
library(ggplot2)

p = ggplot(iris, aes(label=Species)) + 
  geom_point(aes(Sepal.Length,Sepal.Width))
ggplotly(p)
a <- data.frame(ID=rep(1:3,2),Type=rep(1:3,2), Sepal.Length=rep(5:7,2), Sepal.Width=rep(c(0,5),rep(3,2)))
a

我可以添加参考线，
例如：#如ggplotly中建议的：工具提示标签与添加层数据的冲突

p2 <- geom_line(data = a, aes(x = Sepal.Length, y = Sepal.Width, color = Type,  group=ID,label=NA))
p + p2
ggplotly(p+p2)

当我将鼠标悬停在任何垂直线上时，有没有办法可以看到垂直线的工具提示 在线上的位置（当前工具提示仅显示在极端处）？ （我没有看到How to add tooltips to geom_abline & geom_hline using ggplotly?中的建议作为一个好的解决方案）。

Answer 1

也许

layout(hovermode = 'compare')

就是您正在寻找的：

library(plotly)
library(ggplot2)

a <- data.frame(ID=rep(1:3,2),Type=rep(1:3,2), Sepal.Length=rep(5:7,2), Sepal.Width=rep(c(0,5),rep(3,2)))
a

p2 <- geom_line(data = a, aes(x = Sepal.Length, y = Sepal.Width, color = Type,  group=ID,label=NA))
p + p2
ggplotly(p+p2) |> layout(hovermode = 'compare')