R ggplotly:悬停时重命名工具提示

R ggplotly:悬停时重命名工具提示,r,ggplot2,plotly,r-plotly,ggplotly,R,Ggplot2,Plotly,R Plotly,Ggplotly,我有一张上面的图表。可重用代码如下所示 plotly::ggplotly(ggplot(dplyr::as_tibble(rnorm(1000)), aes(value)) + stat_ecdf(geom = 'line')) 我想重命名悬停时的工具提示并设置其格式。 例如,x轴或“值”(在图表中)可以是“单位价格”,而y轴是累积分布 所以当我悬停在线上时,我希望能够看到下面这样的东西 累计分配:78.2% 单价:฿0.81 谢谢 您可以用绘图方式打包。这里有一篇文章告诉您如何添加自定义工具

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

plotly::ggplotly(ggplot(dplyr::as_tibble(rnorm(1000)), aes(value)) + stat_ecdf(geom = 'line'))
我想重命名悬停时的工具提示并设置其格式。 例如,x轴或“值”(在图表中)可以是“单位价格”,而y轴是累积分布

所以当我悬停在线上时,我希望能够看到下面这样的东西

累计分配:78.2%

单价:฿0.81


谢谢

您可以用绘图方式打包。这里有一篇文章告诉您如何添加自定义工具提示

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

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) 
library(plotly)
库(缩放)#用于number()函数

gg嗨,是的,我正在使用plotly包,正如您从上面的代码中看到的那样。我的问题是工具提示。我不好,我以为你在使用ggplotThank@Stephane,关于如何设置工具提示的样式,有什么好的资源吗?再次感谢:)