ggplotly的交互和格式问题

Question

我被另一个问题强迫在ggplotly尝试一些事情。我使用了那个问题的代码。我对输出感兴趣，而不是内容。我看到输出格式和项不起作用的问题。

我有＆＃34;简单＆＃34;在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))

1）我无法点击使用图例删除系列，两个栏都会消失。 2）鼠标悬停不存在。

当我删除填充=我得到一个没有图例的灰色图。但鼠标悬停工作..

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

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

print(ggplotly(pag))

{{0}}

我是如何使用填充=？我正在使用plotly 4.5.6，ggp​​lot2 2.2.1

谢谢，

理查德

Answer 1

ggplotly似乎存在问题，甚至每个组都需要两个结果。当组中只有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))

为每个组添加至少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))