使用facet_wrap时ggplotly添加的空图表

Question

将facet_wrap与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)

有什么办法可以避免这种情况？

Answer 1

安装ggp​​lot2的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)