在使用facet_wrap时由ggplotly添加的空图表

使用ggplotly时，有没有办法删除添加到最后一行的空图表

我正在使用facet_wrap生成如下图：

library(ggplot2)
library(plotly)
g=ggplot(data=mtcars, aes(x=mpg, y=wt))+geom_point()+facet_wrap(~hp)
print(g)

由此得出这个数字：

如果我尝试使用ggplotly，额外的空图表将添加到最后一行

gg = ggplotly(g)
print(gg)

---

有没有办法避免这种情况

安装ggplot2和plotly的github版本解决了这个问题

devtools::install_github("tidyverse/ggplot2")
devtools::install_github("ropensci/plotly")

library(ggplot2)
library(plotly)

g=ggplot(data=mtcars, aes(x=mpg, y=wt))+geom_point()+facet_wrap(~hp)
print(g)

gg = ggplotly(g)
print(gg)

---

@Nova我刚刚又试了一次，第一次没用，但当我重新启动RStudio时，它确实起作用了