ggplotlyの対話とフォーマットの問題

Question

ggplotlyでいくつかのことを試みる別の質問が出た。私はその質問のコードを使用しました。私はコンテンツよりも出力に興味があります。私は、出力書式設定や項目が機能しないという問題を抱えています。

私はggplotに "単純な"プロットがあり、ggplotlyでラップしたいと思います。私は塗りつぶし=を使って棒の色を指定しますが、私は棒の非表示を消してしまいます。

library(ggplot2) 

library(plotly) 
cnt <-c(2,1) 
date <- c("2016-01-05 13:53:43","2016-01-15 09:33:40") 
xx.df <- data.frame(date,cnt) 
xx.df$datep <- as.Date(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$datea <- as.character(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$status <- as.factor(c("Success","Fail")) 

pa <- ggplot(xx.df,aes(x=datea,y=cnt,fill=status)) 
pa <- pa+geom_bar(stat="identity") 
print(ggplotly(pa)) 

1）凡例を使用してシリーズを削除すると、両方のバーが消えません。 2）マウスのホバーがありません。

私が埋める削除する=私は伝説のない灰色のプロットを取得します。マウスホバーは動作しますが...

pag <- ggplot(xx.df,aes(x=datea,y=cnt)) 

pag <- pag+geom_bar(stat="identity") 

print(ggplotly(pag)) 

は、私は=塗りつぶしを使用する方法とがある問題ですか？私はggplotlyとさえplotly各グループのための2つの結果を必要として問題があるように思わplotly 4.5.6、2.2.1 ggplot2

おかげで、

リチャード

Answer 1

を使用しています。グループの要素が1つのみの場合。この場合、「失敗」。マウスのホバーは失敗時には機能しません。

library(ggplot2) 

library(plotly) 
cnt <-c(2,1,3) 
date <- c("2016-01-05 13:53:43","2016-01-15 09:33:40","2016-01-18 13:53:43") 
xx.df <- data.frame(date,cnt) 
xx.df$datep <- as.Date(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$datea <- as.character(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$status <- as.factor(c("Success","Fail","Success")) 

pa <- ggplot(xx.df,aes(x=datea,y=cnt,fill=status)) 
pa <- pa+geom_bar(stat="identity") 
print(ggplotly(pa)) 

すべてのバーは、マウスのホバーを持っている。各グループのために少なくとも2を追加し、すべての作品... ライブラリ（ggplot2）

library(plotly) 
cnt <-c(2,1,3,4) 
date <- c("2016-01-05 13:53:43","2016-01-15 09:33:40","2016-01-18 13:53:43","2016-01-25 13:53:43") 
xx.df <- data.frame(date,cnt) 
xx.df$datep <- as.Date(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$datea <- as.character(xx.df$date,format="%Y-%m-%d %H:%M:%S") 
xx.df$status <- as.factor(c("Success","Fail","Success","Fail")) 

pa <- ggplot(xx.df,aes(x=datea,y=cnt,fill=status)) 
pa <- pa+geom_bar(stat="identity") 
print(ggplotly(pa))