使用ggplotly和facet_wrap可以避免巨大的面板尺寸吗？

Question

在使用facet_wrap的combinatoin中使用ggplotly时，是否有一种简单的方法可以避免巨大的面板尺寸？ 这是一个例子：

library(ggplot2)
library(plotly)

dia = ggplot2::diamonds %>% filter(cut=="Ideal", clarity=="SI2", color!="J")

p <- ggplot(data=dia,aes(x=carat, y=price)) 
p <- p + facet_wrap(~color,ncol=1) 
p <- p + geom_point()
p

ggplotly(p)

非常感谢提前。