使用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和可打印版本4.9.2.1。有人帮我保留了尺寸并增加了我的情节。

我尝试了Cam McMains给here的答案，但没有任何改变。

更新

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)

送礼