ggplotly：悬停时重命名工具提示

Question

我有一个如上图所示的图表。可重复使用的代码如下。

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

我想重命名和格式化悬停时的工具提示。例如，x 轴或 'value'（在图表中）可以是 'Unit Price in ฿'，而 y 轴是累积分布。

所以当我悬停在线上时，我希望能够看到类似下面的内容

Cumul Distribution: 78.2%

Unit Price : ฿0.81

谢谢！

Answer 1

你能密谋打包吗。这是一篇告诉您如何添加自定义工具提示的文章 Plotly

嗯，更改 aes 似乎是我们修改标签的唯一方法，它现在不完全支持您想要的

Answer 2

这是一个方法。

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)

ggplotly：悬停时重命名工具提示

ggplotly: rename tooltip on hover

r

ggplot2

plotly

r-plotly

ggplotly