如何在情节中更改悬停文本

Question

我有这段代码。 我怎样才能轻松将悬停文本 diff 更改为 newlabel ？ 这是我的网站http://webcovid19.online/

 ggplotly(
        ggplot(my_data, aes(x=date, y=diff)) + 
        geom_bar(stat='identity',fill='red')  +
        scale_y_continuous(labels = comma) 
    )

Answer 1

您可以自定义工具提示中的文本，将 text 添加到 ggplot 中的 aes()。在这里，您可以将date 和diff 包含在您想要的任何文本标签中（或者仅包含diff）。在ggplotly 中，您可以包含tooltip = "text" 以通过悬停来引用此文本。

library(plotly)
library(scales)

ggplotly(
  ggplot(my_data, aes(x=date, y=diff, text = paste("Date:", date, "\nnewlabel:", diff))) + 
    geom_bar(stat='identity', fill='red')  +
    scale_y_continuous(labels = comma),
  tooltip = "text"
)