r - 使用 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)

给