使用ggplotly时保持纵横比

Question

我有一个ggplot hexbin图表，我想用ggplotly显示。但是，当我使用ggplotly函数时，先前为gplot图表修复的宽高比会丢失。

最小的工作示例：

library(ggplot2)
library(plotly)
library(RColorBrewer)

set.seed(11)
df<-data.frame(xvar=rnorm(1000,0,4),yvar=rnorm(1000))

#nicer colours
palette <- colorRampPalette(rev(brewer.pal(11,'Spectral')))
colours<-palette(32)

p1<-ggplot(df,aes(x=xvar,y=yvar))+ coord_fixed(ratio=1)+
  stat_binhex(bins=50)+scale_fill_gradientn(colours=colours)
p1
ggplotly(p1)

我已使用以下代码估算了比率，但由于图例，比率仍然略显错误。

ratioaxes<-(max(df$yvar)-min(df$yvar))/(max(df$xvar)-min(df$xvar))
ggplotly(p1,height=ratioaxes*500,width=500)

有什么办法可以保持这个比例吗？

提前致谢！