R：ggplotly堆栈条形图显示错误的标签

Question

library(dplyr)
library(ggplot2)
library(reshape2)
library(plotly)
dat<-data.frame(A=letters[1:5],B=seq(10,50,10),C=seq(60,100,10))
ggplotly(dat %>% melt(id.vars="A") %>% ggplot(aes(A,value,fill=variable)) +geom_bar(stat = "identity"))

图表可以正确绘制数据，但标签在悬停在条形图上时会为变量B提供错误的值。不知道如何解决它。