在汇总数据上使用 ggplotly 时，条形图条不交互答案

【问题标题】：Bars of bar plots not interactive when using ggplotly on summarized data在汇总数据上使用 ggplotly 时，条形图条不交互
【发布时间】：2016-12-26 09:39:22
【问题描述】：

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

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。

有人知道发生了什么以及我能做些什么吗？

【问题讨论】：

我也运行了你的代码，我也没有交互性。错误？
与stackoverflow.com/questions/41184959/…相关？

标签： r plot ggplot2 plotly

【解决方案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()

【讨论】：