R Plotly：更改悬停弹出窗口样式

我想更改悬停弹出窗口的样式。默认样式完全是丑陋的。我想让它看起来更像海图风格

其目的是添加文本样式，增加文本周围的填充，并限制边框的颜色。我可以自己编写css样式，但我想知道如何/在何处将其注入。在何处定义和加载样式？什么是类等。使用

Chrome>Inspect

我似乎走不了多远。我在R.

中根据以下内容使用绘图：

也许你可以试试这样的东西：

library(plotly)
plot_ly(txhousing, x = ~date, y = ~median) %>% add_lines()

gg%
添加_行（）
样式（gg，hoverlabel=list（bgcolor=“灰色”，bordercolor=“黑色”，bordercolorsrc=“紫色”，font=“Arial”））

谢谢！这是一个良好的开端。但是，它并没有给我所有我需要的控制。

gg <- plot_ly(txhousing, x = ~date, y = ~median) %>% 
add_lines()
style(gg, hoverlabel = list(bgcolor = "grey", bordercolor = "black", bordercolorsrc = "purple", font = "Arial"))