集計されたデータにggplotlyを使用しているときに棒グラフの対話がない

Question

gでgplot2とplotlyを使用してRで対話的な棒グラフを作成しようとしましたが、要約データを使用するとインタラクティブな棒が表示されません。いくつかの要素変数に従ってグループ化されたときの行数のカウント。例えば、ploltyサイトからの例を使用して、ときに私のような入力何か：https://plot.ly/ggplot2/geom_bar/：

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

私はここで見つけるのグラフのようなものを取得したいと思います。 しかし、代わりに何かを完全に同一にしますが、バーにカーソルを合わせるとラベルが表示されません。これは、RStudioやShinyセッションで実行している場合でも当てはまります。

私はデータを要約しないといくつかの対話性を得ていることに気付きましたが、y軸に沿って各ステップごとに別々の（ただし同一の）ラベルを生成します。これは厄介なものですggplot（ 'y = 1'のようなもの）の呼び出しで愚かさのような感じのビット。さらに、要約されていないデータは、バーの高さが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()