R 在汇总数据上使用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()

---

dat早上好，我只使用向量
c（“红色”、“蓝色”）
来定制您的颜色。请尝试以下代码：

library(ggplot2)
library(plotly)
dat <- data.frame(
  time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(14.89, 17.23)
)
ggplot(dat,aes(x=time,y=total_bill))+
  geom_bar(fill=c("red","blue"),stat="identity")
ggplotly()

库（ggplot2）
图书馆（绘本）
dat我也运行了你的代码，我也没有交互性。臭虫？和什么有关？