如何让 ggplotly 显示 geom_rect 系列的悬停工具提示？

Question

我正在尝试为多个雇主的个人工资增长创建交互式可视化。我正在使用 geom_rect 系列来显示工资期和工资信息。当我应用 ggplotly 函数时，默认情况下不显示悬停工具提示，并且我找不到启用它们的方法。

如何在 geom_rect 上启用工具提示？

数据：

df <- data.frame(
"From" = seq(as.Date("2016-01-01"), as.Date("2026-01-01"), by = 14),
"To" = seq(as.Date("2016-01-01"), as.Date("2026-01-01"), by = 14)+13,
"Employer" = c(rep("Current employer",130),rep("Future employer",131)),
"Salary" = seq(50000,250000,length.out = 261)
)

可见：

library(ggplot2)
library(dplyr)
library(plotly)
ggplotly(
ggplot(data = df) +
  geom_rect(aes(xmin = From, xmax = To,
                ymin = Employer, ymax = Employer,
                colour = Employer,
                size = Salary))
)

输出（无悬停文本）：

请注意，我还向related question 询问了有关将范围滑块应用于此问题的问题。

Answer 1

在这种情况下，geom_rect() 是一种特殊的美学元素，与经典的plotly 元素（如点或条）相比。这就是为什么即使启用tooltip 你也无法获得它们。您需要创建标签，以便它们可以被识别为 ggplotly() 的已知元素，就像最初提到的那样。代码如下：

library(ggplot2)
library(dplyr)
library(plotly)
#Code
ggplotly(ggplot(data = df) +
  geom_rect(aes(xmin = From, xmax = To,
                  ymin = Employer, ymax = Employer,
                  colour = Employer,
                  size = Salary))+
  geom_line(aes(x = From,
                y = Employer,
                group = 1,
                text = paste("Date: ",
                             From, "<br>Salary: ", Salary)),
            color='transparent') + 
  geom_point(aes(x = From,
                 y = Employer,
                 text = paste("Date: ", From, "<br>Salary: ",
                              Salary)),
             color='transparent'),tooltip = 'text')

输出：