Показать нижнюю и верхнюю границы в гистограмме geom_bin (ggplot2)

Question

В следующей гистограмме, как я могу включить нижнюю и верхнюю границы для каждого бина как текст подсказки в ggplotly?

library(ggplot2)
library(plotly)
csub<-data.frame(Anomaly10y = rpois(50,5))
p <-  ggplot(csub,aes(x=Anomaly10y)) + 
  stat_bin(binwidth=1, aes(label1 = min(Anomaly10y, na.rm = T), label2 = 
  max(Anomaly10y, na.rm = T))) 
ggplotly(p, tooltip = c("label1", "label2"))

заранее спасибо

Answer 1

Может быть, есть лучшее решение, но вы можете обмануть его, используя geom_bar() чтобы получить то, что вы хотите. Вот альтернатива:

#first extract the data from stat_bin
p <-  ggplot(csub,aes(x=Anomaly10y)) + stat_bin(binwidth=1) 

temp <- layer_data(p, 1)
#ggplot
pp <- ggplot(data = temp, aes(x =x,y=y, label1 = xmin, label2 = xmax)) + 
geom_bar(stat = 'identity', fill = "darkgrey", width = 1)

а затем заговор с ggplotly:

ggplotly(pp)

или же

ggplotly(pp, tooltip = c("label1", "label2"))

Может быть, кто-то как решение с этой опцией, но:

pp <-  ggplot(csub,aes(x=Anomaly10y)) + 
    stat_bin(binwidth=1)  + 
stat_bin(binwidth=1, geom="text", aes(label=..xmin..), vjust = 2)  + 
stat_bin(binwidth=1, geom="text", aes(label=..xmax..)) 
ggplotly(pp)

Я получаю только один ярлык, а не оба.