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

Question

使用ggplotly时如何舍入悬停信息？在以下示例中，我创建了带有悬停信息的散点图。我想将悬停信息中的数字四舍五入为整数而不更改实际值。

library(ggplot2)
library(plotly)

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

ggplotly(p)

Answer 1

使用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")