Есть ли способ добавить метку диапазона бина в подсказку для гистограммы, используя ggplotly в R?

Question

library(tidyverse)
library(ggplot2)
library(plotly)

data(mpg)

ggplotly(
mpg %>% 
  ggplot(aes(x=hwy)) +
  geom_histogram(), 
tooltip = ("all"))

Когда вы наводите курсор на панель, я бы хотел, чтобы во всплывающей подсказке отображался запуск и остановка корзины (например, 20-21)

Answer 1

Спасибо за простой ответ plot_ly. По другим причинам я хотел бы сохранить ggplot. Вот одно из возможных решений, которое я придумал: он извлекает элементы гистограммы из ggbuild_plot () и отображает их в виде гистограммы.

ggplotly(
ggplot_build(
  mpg %>% 
    ggplot(aes(x=hwy)) +
    geom_histogram()
)$data[[1]] %>% 
  ggplot(aes(x=factor(x), y = count, text = paste0("range: ",round(xmin, 1), " - ", round(xmax,1)))) + 
  geom_bar(stat="identity") + 
  theme(axis.text.x = element_blank()),
tooltip = c("text"))

Answer 2

В случае, если не обязательно использовать ggplot2, проще исправить это использование базового c графика гистограммы:

plot_ly(x = mpg$hwy, type = "histogram")