R ggplotly的交互和格式问题

我被另一个问题逼着去尝试一些有趣的事情。我用了那个问题的代码。我对输出比内容更感兴趣。我看到输出格式和项目不工作的问题

我在ggplot中有“简单”的绘图，并想用ggplotly将其包装起来。我使用fill=指定条形图颜色，当我这样做时，条形图的不活动状态消失

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

库（ggplot2）
图书馆（绘本）
cnt似乎存在一个问题，即每个组需要两个结果。当组中只有1个元素时。在这种情况下，“失败”。鼠标悬停在Fail上不起作用

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

库（ggplot2）
图书馆（绘本）
碳纳米管
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))

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