使用ggplotly时如何舍入悬停信息?

How to round the hover information when using ggplotly?

使用ggplotly时如何将悬停信息四舍五入?在下面的示例中,我创建了一个带有悬停信息的散点图。我想在不更改实际值的情况下将该悬停信息中的数字四舍五入为整数。

library(ggplot2)
library(plotly)

p <- ggplot(mtcars, aes(x = wt, y = qsec)) +
  geom_point()

ggplotly(p)

使用 text 美学来制作自定义工具提示:

library(ggplot2)
library(plotly)

p <- ggplot(mtcars, 
            aes(x = wt, y = qsec, 
                text = paste0("wt: ", round(wt), "</br></br>qsec: ", round(qsec)))) +
  geom_point()

ggplotly(p, tooltip = "text")