在汇总数据上使用ggplotly时，条形图条不是交互式的

Question

我一直在尝试使用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的调用中需要一些感觉像愚蠢的东西（类似于＆＃39; y = 1＆＃39;）。此外，非汇总数据会为某些条形图生成交互性，但前提是条形图的高度大于1。

任何人都知道发生了什么以及我能做些什么呢？

Answer 1

早上好，我只使用向量c("red","blue")自定义颜色。试试这段代码：

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()