如何在R中使用ggplotly（）工具提示=“文本”显示子组的数量

Question

没有人知道我如何在ggplotly()中使用grom_bar在工具提示中显示每组的计数，这至少已经在视觉上显示了Very Good cut和Colour E一起出现了多少次。 df？在这种情况下，我该如何解决text美学中的问题？而且，我已经知道，如果我更改ggplotly(p, tooltip = "all")，我会看到计数。我还检查了此链接How to control "count" in tooltip for ggplotly with filled bar plot in 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")