R语言 ggplotly:在悬停在线条的任何位置时显示工具提示

6g8kf2rb  于 2023-11-14  发布在  其他
关注(0)|答案(1)|浏览(120)

给出:

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: conflict of labels for tooltip with data of added layer中所建议

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?中的建议是一个好的解决方案)。

mgdq6dx1

mgdq6dx11#

layout(hovermode = 'x')可能是您正在搜索的内容:

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)))

p = ggplot(iris, aes(label=Species)) + 
  geom_point(aes(Sepal.Length,Sepal.Width))

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 = 'x') |> style(p, hoverinfo = "none", traces = c(1L))

字符串
请在这里查看相关文档。

相关问题