r - 将图例与 ggiraph 中的数据点链接

Question

我正在尝试创建一个 ggiraph 图，我想将其包含在 rmarkdown 文档中，其中悬停图例也会突出显示图中的相应点。

我试过下面的代码，但是虽然我可以悬停图中的点和图例，但它们没有链接。有没有办法链接这些？

library(ggiraph)
library(ggplot2)

p = ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species, data_id = Species)) +
  geom_point_interactive() +
  scale_color_brewer_interactive(palette = 'Set1',
                                 data_id = function(breaks) as.character(breaks))

p = girafe(ggobj = p)
p = girafe_options(p,
                   opts_hover(girafe_css("stroke:black;fill:black;")),
                   opts_hover_key(girafe_css("stroke:black;fill:black")))
print(p)