从R开始在条形图中打印自定义悬停文字

我想在ggplot2中制作一个堆栈条形图，并应用ggplotly（）命令将其转换为交互式plotly图形

现在的问题是，我希望根据项目的不同，在悬停时显示每个值

这就是我的意思

绘图显示每个项目的累积值，例如，绿色条图例显示红色条（因为它位于前面）加上绿色条值本身

我希望每个图例根据项目显示其自身的值

以下是DF：

> plotlydata
  Fecha Item  Suma
1 05/16  BAB 20540
2 05/16  BZO  1000
3 05/16  CLZ  1400
4 05/16  CMS 15000
5 07/16  BAB   400

因此，绿色条不是显示21540（之前的20540和自己的1000之和），而是显示自己的值1000

如果你明白我的意思。有没有办法做到这一点

---

不希望以绘图方式显示累积值。

您可以通过添加文字美学并将其包含在工具提示参数中来添加该信息：

# they use the paste() trick on https://plot.ly/ggplot2/interactive-tooltip/
ggplot(d, aes(y = Suma, x = Fecha, fill = Item, text = paste("Suma:", Suma))) + 
  geom_bar(stat = "identity")

ggplotly(tooltip = c("text", "x", "fill"))

样本数据：

d <- read.table(text ="   Fecha Item  Suma
1 05/16  BAB 20540
2 05/16  BZO  1000
3 05/16  CLZ  1400
4 05/16  CMS 15000
5 07/16  BAB   400", header = TRUE)

d