plotly + ggplot2：堆叠条形图中缺少一些工具提示

Question

举个例子

library(ggplot2)
library(plotly)
df <- data.frame(V1=gl(6,20), V2=gl(40,3))
p <- ggplot(df, aes(x=V1, fill=V2)) + geom_bar(color="white")
ggplotly(p)

某些条形段显示没有工具提示/悬停信息，而图例很好地显示了大量的因子级别（=滚动条）。我怎样才能解决这个问题？

我正在使用

packageVersion("ggplot2")
# [1] ‘2.2.0’
packageVersion("plotly")
# [1] ‘4.5.6’

编辑/仅供参考：Crossposted to GitHub。

Answer 1

添加一些代码。我们可以解决它：

library(ggplot2)
library(plotly)
df <- data.frame(V1=gl(6,20), V2=gl(40,3))
p <- ggplot(df, aes(x=V1, fill=V2)) + geom_bar(color="white")
fixed<-ggplotly(p)

for (i in 1:length(levels(df$V2))){
  fixed$x$data[[i]]$text[length(fixed$x$data[[i]]$text)+1] <- c("")
}
fixed