在汇总数据上使用ggplotly时，条形图的条形图无法交互

我一直在尝试使用ggplot2和plotly在R中创建交互式条形图，但是当使用汇总数据时，我似乎无法获得交互式条形图，例如：根据某些因子变量分组时的行数计数。例如，使用来自plolty网站的示例，当我输入如下内容时：

dat <- data.frame(
    time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
    total_bill = c(14.89, 17.23)
)

ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) +
    geom_bar(stat="identity")

ggplotly()

我想得到类似在这里找到的图形的东西：https : //plot.ly/ggplot2/geom_bar/。但是，我得到的东西完全相同，但是当我将鼠标悬停在条形图上时，没有标签显示。无论是在RStudio中还是在Shiny会话中运行，都是如此。

我注意到，如果不汇总数据，确实会获得一些交互性，但是这会沿y轴的每个步骤生成单独的（尽管相同）标签，这很烦人，并且需要做些什么在调用ggplot时感觉很愚蠢（类似“ y = 1”）。此外，未汇总的数据会为某些条形图生成交互性，但前提是条形图的高度大于1。

任何人都知道发生了什么，对此我能做什么？