ggplot和ggplotly行的工具提示

Question

以下代码在ggplotly中绘制了一个三角形。我想使用标签（来自数据框）作为工具提示。我该怎么办？

library(tibble)
library(dplyr)
library(ggplot2)
library(ggplotly)

data_points <- tibble(Node = c(1,2,3), X = c(1,2,1.5), Y = c(4,5,6))
data_segments <- tibble(From = c(1,2,3), To = c(2,3,1), label = c('Line 1: 800', 'Line 2: 1600', 'Line 3: 400'))
data <- data_segments %>% 
  left_join(data_points %>% rename(From = Node, X_from = X, Y_from = Y)) %>% 
  left_join(data_points %>% rename(To = Node, X_to = X, Y_to = Y))

p <- ggplot(data) + 
  geom_point(aes(x = X_from, y = Y_from)) + 
  geom_segment(aes(x = X_from, y = Y_from, xend = X_to, yend = Y_to, text = label))
ggplotly(p, tooltip = "text")

我不想将鼠标悬停在某个点上，而是希望将其在线上。

我在this one之类的点上发现了一些相关的项目，但似乎都与线无关。

基本上，它们都使用美学文字或标签来呈现效果。问题是geom_segment和geom_line不接受这种美学。有没有其他方法可以解决这个问题？

还有其他人提到行问题，例如this one，但这也不是我要寻找的问题。

编辑：似乎有一些带有迹线的选项，这些迹线等效于一条线。但是，到目前为止，我仅在线有很多拐角或弯曲的痕迹中找到了工作结果（例如，密度图here）。在直线上，工具提示仍会停留在这些点上。