切换:在悬停时重命名工具提示

Question

​

​

我有一张像上面这样的图表。可重用代码如下所示。

plotly::ggplotly(ggplot(dplyr::as_tibble(rnorm(1000)), aes(value)) + stat_ecdf(geom = 'line'))

我想重命名和格式化工具提示在悬停。例如，x轴或'value‘(在图表中)可以是’单价泰铢‘，而y轴是累积分布。

所以当我在线上盘旋时，我想看到下面这样的东西

累积分布: 78.2% 单价:泰铢0.81泰铢

谢谢!

Answer 1

这里有个办法。

library(plotly)
library(scales) # for the number() function

gg <- ggplot(dplyr::as_tibble(rnorm(1000)), aes(value)) + 
  stat_ecdf(geom = 'line')

ggly <- ggplotly(gg)

text_x <- number(
  ggly$x$data[[1]]$x,
  prefix = "Unit Price: $",
  accuracy = 0.01
)

text_y <- number(
  ggly$x$data[[1]]$y,
  scale = 100,
  accuracy = 0.1,
  prefix = "Cumul. distribution: ",
  suffix = "%"
)

ggly %>%
  style(text = paste0(text_x, "</br></br>", text_y), traces = 1) 

​

​

Answer 2

你可以巧妙地打包。下面是一篇介绍如何添加自定义工具提示普洛特利的文章

嗯，修改aes似乎是我们修改标签的唯一方法，而且它不支持你现在想要的东西