悬停时更改框的颜色以匹配热图中的单元格

Question

关于使用

ggplotly

包中的

plotly

时更改弹出框的颜色的类似问题，但是，似乎没有一个能解决我的特定问题。

我有一个热图，是使用

ggplot

创建的，我正在使用

ggplotly

使其具有交互性。当前，当您将鼠标悬停在热图中的某个单元格上时，弹出框的背景颜色为灰色。我正在尝试使弹出框的背景颜色与鼠标悬停的热图单元格的颜色相匹配。

为了说明我想要什么，下面的第一个代码块显示了使用

geom_point

的示例。当您运行代码并将鼠标悬停在一个点上时，弹出框的颜色与该点相同。

library(ggplot2)
library(poorly)

p <- ggplot() +
  geom_point(data = iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species))

ggplotly(p)

我相信弹出框的颜色可能是由

color

美学控制的，因为当我创建热图（如下图）并且必须使用

fill

时，弹出框是灰色的。

library(ggplot2)
library(plotly)

# Dummy data
x <- LETTERS[1:5]
y <- paste0("var", seq(1,5))
data <- expand.grid(X=x, Y=y)
data$Z <- runif(25, 0, 5)

# colour palette
pal <- colorRampPalette(c("darkblue", 'white', 'darkred'))(100)

# Heatmap 
p <- ggplot(data, aes(X, Y, fill= Z)) + 
  geom_tile() + scale_fill_gradientn(colors=pal)

ggplotly(p)

关于如何让弹出框的背景颜色与它在热图中悬停的单元格的颜色相匹配有什么建议吗？