Как управлять «подсчетом» во всплывающей подсказке для ggplotly с заполненным гистограммой в R

Question

Заранее спасибо за любой совет, который вы можете предложить!Я надеюсь, что смогу пометить «счет» во всплывающей подсказке для публичного интерактивного сюжета.

Вот воспроизводимый пример:

library(plotly)
df <- data.frame(cat=c(rep("A", 5), rep("B", 7), rep("C", 10)),
                 time=c(rep("Time1", 3), rep("Time2", 13), rep("Time3", 6)))
ggplotly(ggplot(df, aes(x=time, fill=cat)) + geom_bar(position = "fill"))

Я знаю, что могу контролировать метки времени и категории во всплывающей подсказке с помощью text=paste("Category:", cat, "Time:" time), но не могу понять, как датьпосчитайте более эстетичным названием.

Спасибо за ваше время!

Answer 1

Возможно, есть более простое решение, но вы можете сделать:

library(plotly)
df <- data.frame(cat=c(rep("A", 5), rep("B", 7), rep("C", 10)),
                 time=c(rep("Time1", 3), rep("Time2", 13), rep("Time3", 6)))
gg <- ggplotly(ggplot(df, aes(x=time, fill=cat)) + geom_bar(position = "fill"))
ggg <- plotly_build(gg)
for(i in 1:length(ggg$x$data)){
  text <- ggg$x$data[[i]]$text
  text <- gsub("count:", "Count:", text)
  text <- gsub("time:", "Time:", text)
  text <- gsub("cat:", "Cat:", text)
  ggg$x$data[[i]]$text <- text
}
ggg