使用 ggplotly() 时删除面之间的空白

Question

我希望使用plotly 使ggplot 对象具有交互性。当我使用 时ggplotly()，我的面之间会引入巨大的空白，使绘图变得很小且看起来很奇怪：

与仅使用时的大小和整洁相比ggplot：

我的可重现代码是：

library(plotly)
library(ggplot2)
library(reshape2)

p <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + 
  geom_point(shape=1) + 
  facet_wrap( ~ day, ncol=2)

ggplotly(p)

不知道是我的电脑设置有问题还是我的代码有问题。我使用 R 版本 4.0.2、ggplot2 版本 3.3.2 和plotly 版本 4.9.2.1。有人帮助我保留大小并为我的情节添加交互性。

我已经尝试过Cam McMains在这里给出的答案，但没有任何改变。

更新

library(plotly)
library(ggplot2)
library(reshape2)

p <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + 
  geom_point(shape=1) + 
  theme(panel.spacing=unit(0,'npc'))+
  facet_wrap( ~ day, ncol=2)
  
ggplotly(p)

给予