将文本悬停在geom_segment上

Question

下面的代码使用plotly和悬停文本创建一行geom_segment图形。

# Load libraries
library(ggplot2)
library(plotly)

# Create data frame
df <- data.frame(xmin = 0, xmax = 1, y = 1, label = "Hover!")

# Create plot with hover
g <- ggplot(df) + geom_segment(aes(x = xmin, xend = xmax, 
                                   y = y, yend = y, text = label))
ggplotly(g, tooltip = "text")

当我将鼠标悬停在线段的任一端点上时，文本将按预期显示。

我的问题：将鼠标悬停在细分的任何部分时，如何显示文本？我可以创建并绘制一个沿线段​​具有很多点的数据框，以便当我将鼠标悬停在直线上时，也将鼠标悬停在这些点之一上，但这很笨拙。有更好的方法吗？