Как отобразить количество подгрупп с помощью ggplotly () tooltip = "text" в R

Question

кто-нибудь знает, как я мог отобразить счетчик для каждой группы в подсказке с помощью ggplotly(), используя grom_bar, который уже хотя бы визуально показывает, сколько раз Very Good cut и Colour E произошли вместе в дф? Как мне в этом случае обратиться к счету в эстетике text? И я уже знаю, что если я изменю ggplotly(p, tooltip = "all"), я вижу количество. Я также проверил эту ссылку Как управлять «счетчиком» во всплывающей подсказке для ggplotly с заполненным гистограммой в R . Но я хотел бы иметь гибкость text, чтобы я мог настроить наконечник. Заранее спасибо!

library(ggplot2)
library(plotly)
data("diamonds")
p = ggplot(diamonds, aes(cut,   fill = as.factor(color), 
                   text = paste0("Cut: ", cut,"<br>Count: ", ???, "<br>Color: ",color, "<br>Count: ", ???))
      ) + 
geom_bar()

ggplotly(p, tooltip = "text")

Answer 1

Я не очень понимаю, что вы действительно хотите показать, но, возможно, вы можете рассчитать значения перед сюжетом.

p <- diamonds %>% 
  count(cut, color) %>% 
  add_count(cut, wt = n, name = "total") %>% 
  ggplot(aes(x = cut, y = n, fill = as.factor(color),
             text = paste0("Cut: ", cut, "<br>Count: ", total, "<br>Color: ", color, "<br>Count:  ", n))) +
  geom_col()
ggplotly(p, tooltip = "text")