R Plotly不使用ggplot图表

Question

我制作了一张ggplot2图片，几乎让我的客户100％满意。但是，交互式工具提示是必要的。 我发现了“情节”，但当我试图使用它时，我没有成功。我一直在尝试很多东西但是因为我是R的新手所以每次尝试都会变得更加混乱。

创建ggplot2：

install.packages("tidyverse")
#install.packages("ggplot2")
install.packages("scales")

lucas <- expand.grid('cat' = LETTERS[1:5], 'cond'= c(F,T), 'year' = 
2016:2017)
lucas$value <- floor((rnorm(nrow(lucas)))*100)
lucas$value[lucas$value < 0] <- 0

library("ggplot2")
library(scales)

ggplot() +
geom_bar(data=lucas, aes(y = value, x = year, fill = cond), stat="identity",
    position='fill') +
scale_y_continuous(labels = percent_format()) +
scale_x_continuous(breaks=c(seq(2016,2017))) +
facet_grid(cat ~ . , shrink = TRUE, margins = TRUE, switch = "y",
    scales = "free") +
theme(strip.text.x = element_text(size = 8, colour = "red", angle = 90)) +
coord_flip()

尝试使用情节：

install.packages("plotly")
library(plotly)

p <-   ggplot() +
       geom_bar(data=lucas, aes(y = value, x = year, fill = cond), 
            stat="identity", position='fill') +
       scale_y_continuous(labels = percent_format()) +
       scale_x_continuous(breaks=c(seq(2016,2017))) +
       facet_grid(cat ~ . , shrink = TRUE, margins = TRUE, switch = "y",
            scales = "free") +
       theme(strip.text.x = element_text(size = 8, colour = "red", angle = 
            90)) +
       coord_flip()

ggplotly(p)

我尝试使用的软件包：

1 - ＆gt; install.packages("plotly")

2 - ＆gt; if (!require("devtools")) install.packages("devtools") devtools::install_github('hadley/ggplot2')

3 - ＆gt; devtools::install_github("ropensci/plotly")

当我使用任何github的版本时，第一个ggplot停止工作。

在这种情况下，我需要做些什么才能与ggplot一起使用？