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

Question

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

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)

提前谢谢了。