显示 ggplotly 悬停的相应标签列表

Question

我想在交互式箱形图中显示来自数据框的信息。对应的代码为：

p=ggplot(data = data,
       aes(x = GeoAreaName,  fill= cat, text= Indicator)) +
  geom_bar()

ggplotly(p)

“cat”是描述数据质量的分类变量，“GeoAreaName”是国家名称，“Indicator”是“cat”描述的数据集名称。

我得到的结果几乎是我想要的：

但是，我希望仅当我将鼠标悬停在指示器上方时才显示该指示器的标签，即应显示与类别“猫”相对应的名称列表，而不是每个单独的名称都在栏中作为其自己的段剧情.

有什么建议吗？

编辑：数据摘录：

Answer 1

通过串联聚合指标。

dataNew <- data %>% 
    group_by(GeoAreaName, cat) %>%
    summarize(Indicator = paste(Indicator, collapse=", "), count=n())

绘图：

p <- ggplot(data = dataNew, aes(x = GeoAreaName, y=count, fill= cat, text= Indicator)) + 
    geom_bar(stat="identity")

Showing a list of corresponding labels for ggplotly hover